home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1995-08-30 | 19.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 55%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 44%
| TrID
| Summation Document Image Information Load File
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 39 3a 30 34 3a 35 | 37 20 31 39 39 35 0a 3b | 19:04:5|7 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 69 6c |e/editor|/lisp/il|
|00000090| 69 73 70 2f 63 6f 6d 70 | 6c 65 74 65 72 2e 65 6c |isp/comp|leter.el|
|000000a0| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000b0| 6f 6e 20 31 39 2e 31 33 | 20 58 45 6d 61 63 73 20 |on 19.13| XEmacs |
|000000c0| 4c 75 63 69 64 2e 0a 3b | 3b 3b 20 62 79 74 65 63 |Lucid..;|;; bytec|
|000000d0| 6f 6d 70 20 76 65 72 73 | 69 6f 6e 20 32 2e 32 35 |omp vers|ion 2.25|
|000000e0| 3b 20 31 2d 53 65 70 2d | 39 34 2e 0a 3b 3b 3b 20 |; 1-Sep-|94..;;; |
|000000f0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000100| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000110| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000120| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000130| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000140| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000150| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000160| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000170| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000180| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000190| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001a0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001b0| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|000001c0| 20 20 20 28 65 72 72 6f | 72 20 22 54 68 69 73 20 | (erro|r "This |
|000001d0| 66 69 6c 65 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |file was| compile|
|000001e0| 64 20 66 6f 72 20 45 6d | 61 63 73 20 31 39 2e 22 |d for Em|acs 19."|
|000001f0| 29 29 0a 0a 28 64 65 66 | 76 61 72 20 63 6f 6d 70 |))..(def|var comp|
|00000200| 6c 65 74 65 72 2d 6c 6f | 61 64 2d 68 6f 6f 6b 20 |leter-lo|ad-hook |
|00000210| 6e 69 6c 20 22 5c 0a 48 | 6f 6f 6b 20 63 61 6c 6c |nil "\.H|ook call|
|00000220| 65 64 20 77 68 65 6e 20 | 6d 69 6e 69 62 75 66 66 |ed when |minibuff|
|00000230| 65 72 20 70 61 72 74 69 | 61 6c 20 63 6f 6d 70 6c |er parti|al compl|
|00000240| 65 74 69 6f 6e 20 69 73 | 20 6c 6f 61 64 65 64 2e |etion is| loaded.|
|00000250| 22 29 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 70 6c |").(defv|ar compl|
|00000260| 65 74 65 72 2d 64 69 73 | 61 62 6c 65 20 6e 69 6c |eter-dis|able nil|
|00000270| 20 22 5c 0a 2a 49 66 20 | 54 2c 20 74 75 72 6e 20 | "\.*If |T, turn |
|00000280| 6f 66 66 20 70 61 72 74 | 69 61 6c 20 63 6f 6d 70 |off part|ial comp|
|00000290| 6c 65 74 69 6f 6e 2e 20 | 20 55 73 65 20 74 68 65 |letion. | Use the|
|000002a0| 20 63 6f 6d 6d 61 6e 64 | 0a 5c 5c 5b 63 6f 6d 70 | command|.\\[comp|
|000002b0| 6c 65 74 65 72 2d 74 6f | 67 67 6c 65 5d 20 74 6f |leter-to|ggle] to|
|000002c0| 20 73 65 74 20 74 68 69 | 73 2e 22 29 0a 28 64 65 | set thi|s.").(de|
|000002d0| 66 76 61 72 20 63 6f 6d | 70 6c 65 74 65 72 2d 63 |fvar com|pleter-c|
|000002e0| 6f 6d 70 6c 65 74 65 2d | 66 69 6c 65 6e 61 6d 65 |omplete-|filename|
|000002f0| 73 20 74 20 22 5c 0a 2a | 49 66 20 54 2c 20 74 68 |s t "\.*|If T, th|
|00000300| 65 6e 20 65 61 63 68 20 | 63 6f 6d 70 6f 6e 65 6e |en each |componen|
|00000310| 74 20 6f 66 20 61 20 66 | 69 6c 65 6e 61 6d 65 20 |t of a f|ilename |
|00000320| 77 69 6c 6c 20 62 65 20 | 63 6f 6d 70 6c 65 74 65 |will be |complete|
|00000330| 64 2c 0a 6f 74 68 65 72 | 77 69 73 65 20 6a 75 73 |d,.other|wise jus|
|00000340| 74 20 74 68 65 20 66 69 | 6e 61 6c 20 63 6f 6d 70 |t the fi|nal comp|
|00000350| 6f 6e 65 6e 74 20 77 69 | 6c 6c 20 62 65 20 63 6f |onent wi|ll be co|
|00000360| 6d 70 6c 65 74 65 64 2e | 22 29 0a 28 64 65 66 76 |mpleted.|").(defv|
|00000370| 61 72 20 63 6f 6d 70 6c | 65 74 65 72 2d 75 73 65 |ar compl|eter-use|
|00000380| 2d 77 6f 72 64 73 20 6e | 69 6c 20 22 5c 0a 2a 49 |-words n|il "\.*I|
|00000390| 66 20 54 2c 20 74 68 65 | 6e 20 70 72 65 66 65 72 |f T, the|n prefer|
|000003a0| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 20 77 69 74 | complet|ions wit|
|000003b0| 68 20 74 68 65 20 73 61 | 6d 65 20 6e 75 6d 62 65 |h the sa|me numbe|
|000003c0| 72 20 6f 66 20 77 6f 72 | 64 73 20 61 73 20 74 68 |r of wor|ds as th|
|000003d0| 65 0a 70 61 74 74 65 72 | 6e 2e 22 29 0a 28 64 65 |e.patter|n.").(de|
|000003e0| 66 76 61 72 20 63 6f 6d | 70 6c 65 74 65 72 2d 77 |fvar com|pleter-w|
|000003f0| 6f 72 64 73 20 22 2d 2d | 2d 2e 20 3c 22 20 22 5c |ords "--|-. <" "\|
|00000400| 0a 2a 44 65 6c 69 6d 69 | 74 65 72 73 20 75 73 65 |.*Delimi|ters use|
|00000410| 64 20 69 6e 20 70 61 72 | 74 69 61 6c 20 63 6f 6d |d in par|tial com|
|00000420| 70 6c 65 74 69 6f 6e 73 | 2e 20 20 49 74 20 73 68 |pletions|. It sh|
|00000430| 6f 75 6c 64 20 62 65 20 | 61 20 73 65 74 20 6f 66 |ould be |a set of|
|00000440| 0a 63 68 61 72 61 63 74 | 65 72 73 20 73 75 69 74 |.charact|ers suit|
|00000450| 61 62 6c 65 20 66 6f 72 | 20 69 6e 63 6c 75 73 69 |able for| inclusi|
|00000460| 6f 6e 20 69 6e 20 61 20 | 5b 5d 20 72 65 67 75 6c |on in a |[] regul|
|00000470| 61 72 20 65 78 70 72 65 | 73 73 69 6f 6e 2e 22 29 |ar expre|ssion.")|
|00000480| 0a 28 64 65 66 76 61 72 | 20 63 6f 6d 70 6c 65 74 |.(defvar| complet|
|00000490| 65 72 2d 61 6e 79 2d 64 | 65 6c 69 6d 69 74 65 72 |er-any-d|elimiter|
|000004a0| 20 6e 69 6c 20 22 5c 0a | 2a 49 66 20 61 20 63 68 | nil "\.|*If a ch|
|000004b0| 61 72 61 63 74 65 72 2c | 20 74 68 65 6e 20 61 20 |aracter,| then a |
|000004c0| 64 65 6c 69 6d 69 74 65 | 72 20 69 6e 20 74 68 65 |delimite|r in the|
|000004d0| 20 70 61 74 74 65 72 6e | 20 74 68 61 74 20 6d 61 | pattern| that ma|
|000004e0| 74 63 68 65 73 20 74 68 | 65 0a 63 68 61 72 61 63 |tches th|e.charac|
|000004f0| 74 65 72 20 77 69 6c 6c | 20 6d 61 74 63 68 20 61 |ter will| match a|
|00000500| 6e 79 20 64 65 6c 69 6d | 69 74 65 72 20 69 6e 20 |ny delim|iter in |
|00000510| 63 6f 6d 70 6c 65 74 65 | 72 2d 77 6f 72 64 73 2e |complete|r-words.|
|00000520| 22 29 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 70 6c |").(defv|ar compl|
|00000530| 65 74 65 72 2d 66 69 6c | 65 2d 73 6b 69 70 20 22 |eter-fil|e-skip "|
|00000540| 5e 63 73 2f 24 5c 5c 7c | 40 73 79 73 5c 5c 7c 2e |^cs/$\\||@sys\\|.|
|00000550| 65 64 75 2f 24 5c 5c 7c | 2e 67 6f 76 2f 24 5c 5c |edu/$\\||.gov/$\\|
|00000560| 7c 2e 63 6f 6d 2f 24 5c | 5c 7c 3a 2f 24 22 20 22 ||.com/$\|\|:/$" "|
|00000570| 5c 0a 2a 52 65 67 75 6c | 61 72 20 65 78 70 72 65 |\.*Regul|ar expre|
|00000580| 73 73 69 6f 6e 20 66 6f | 72 20 70 61 74 68 6e 61 |ssion fo|r pathna|
|00000590| 6d 65 20 63 6f 6d 70 6f | 6e 65 6e 74 73 20 74 6f |me compo|nents to|
|000005a0| 20 6e 6f 74 20 63 6f 6d | 70 6c 65 74 65 2e 22 29 | not com|plete.")|
|000005b0| 0a 28 64 65 66 76 61 72 | 20 63 6f 6d 70 6c 65 74 |.(defvar| complet|
|000005c0| 65 72 2d 65 78 61 63 74 | 20 6e 69 6c 20 22 5c 0a |er-exact| nil "\.|
|000005d0| 2a 49 66 20 54 2c 20 74 | 68 65 6e 20 79 6f 75 20 |*If T, t|hen you |
|000005e0| 6d 75 73 74 20 68 61 76 | 65 20 61 6e 20 65 78 61 |must hav|e an exa|
|000005f0| 63 74 20 6d 61 74 63 68 | 2e 20 20 4f 74 68 65 72 |ct match|. Other|
|00000600| 77 69 73 65 2c 20 74 68 | 65 20 73 68 6f 72 74 65 |wise, th|e shorte|
|00000610| 73 74 0a 73 74 72 69 6e | 67 20 74 68 61 74 20 6d |st.strin|g that m|
|00000620| 61 74 63 68 65 73 20 74 | 68 65 20 70 61 74 74 65 |atches t|he patte|
|00000630| 72 6e 20 77 69 6c 6c 20 | 62 65 20 75 73 65 64 2e |rn will |be used.|
|00000640| 22 29 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 70 6c |").(defv|ar compl|
|00000650| 65 74 65 72 2d 63 61 63 | 68 65 2d 73 69 7a 65 20 |eter-cac|he-size |
|00000660| 31 30 30 20 22 5c 0a 2a | 53 69 7a 65 20 6f 66 20 |100 "\.*|Size of |
|00000670| 63 61 63 68 65 20 74 6f | 20 75 73 65 20 66 6f 72 |cache to| use for|
|00000680| 20 70 61 72 74 69 61 6c | 6c 79 20 63 6f 6d 70 6c | partial|ly compl|
|00000690| 65 74 65 64 20 70 61 74 | 68 6e 61 6d 65 73 2e 22 |eted pat|hnames."|
|000006a0| 29 0a 28 64 65 66 76 61 | 72 20 63 6f 6d 70 6c 65 |).(defva|r comple|
|000006b0| 74 65 72 2d 75 73 65 2d | 63 61 63 68 65 20 74 20 |ter-use-|cache t |
|000006c0| 22 5c 0a 2a 53 65 74 20 | 74 6f 20 6e 69 6c 20 74 |"\.*Set |to nil t|
|000006d0| 6f 20 64 69 73 61 62 6c | 65 20 74 68 65 20 70 61 |o disabl|e the pa|
|000006e0| 72 74 69 61 6c 6c 79 20 | 63 6f 6d 70 6c 65 74 65 |rtially |complete|
|000006f0| 64 20 70 61 74 68 6e 61 | 6d 65 20 63 61 63 68 65 |d pathna|me cache|
|00000700| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 63 6f 6d 70 |.").(def|var comp|
|00000710| 6c 65 74 65 72 2d 6c 61 | 73 74 2d 70 61 74 74 65 |leter-la|st-patte|
|00000720| 72 6e 20 22 22 20 22 5c | 0a 54 68 65 20 6c 61 73 |rn "" "\|.The las|
|00000730| 74 20 70 61 74 74 65 72 | 6e 20 65 78 70 61 6e 64 |t patter|n expand|
|00000740| 65 64 2e 22 29 0a 28 64 | 65 66 76 61 72 20 63 6f |ed.").(d|efvar co|
|00000750| 6d 70 6c 65 74 65 72 2d | 6d 65 73 73 61 67 65 20 |mpleter-|message |
|00000760| 6e 69 6c 20 22 5c 0a 54 | 20 69 66 20 74 65 6d 70 |nil "\.T| if temp|
|00000770| 6f 72 61 72 79 20 6d 65 | 73 73 61 67 65 20 77 61 |orary me|ssage wa|
|00000780| 73 20 6a 75 73 74 20 64 | 69 73 70 6c 61 79 65 64 |s just d|isplayed|
|00000790| 2e 22 29 0a 28 64 65 66 | 76 61 72 20 63 6f 6d 70 |.").(def|var comp|
|000007a0| 6c 65 74 65 72 2d 70 61 | 74 68 2d 63 61 63 68 65 |leter-pa|th-cache|
|000007b0| 20 6e 69 6c 20 22 5c 0a | 43 61 63 68 65 20 6f 66 | nil "\.|Cache of|
|000007c0| 20 28 70 61 74 68 20 2e | 20 63 68 6f 69 63 65 73 | (path .| choices|
|000007d0| 29 20 66 6f 72 20 63 6f | 6d 70 6c 65 74 65 72 2e |) for co|mpleter.|
|000007e0| 22 29 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 70 6c |").(defv|ar compl|
|000007f0| 65 74 65 72 2d 73 74 72 | 69 6e 67 20 6e 69 6c 20 |eter-str|ing nil |
|00000800| 22 5c 0a 4c 61 73 74 20 | 63 6f 6d 70 6c 65 74 65 |"\.Last |complete|
|00000810| 72 20 73 74 72 69 6e 67 | 2e 22 29 0a 28 64 65 66 |r string|.").(def|
|00000820| 76 61 72 20 63 6f 6d 70 | 6c 65 74 65 72 2d 74 61 |var comp|leter-ta|
|00000830| 62 6c 65 20 6e 69 6c 20 | 22 5c 0a 4c 61 73 74 20 |ble nil |"\.Last |
|00000840| 63 6f 6d 70 6c 65 74 65 | 72 20 74 61 62 6c 65 2e |complete|r table.|
|00000850| 22 29 0a 28 64 65 66 76 | 61 72 20 63 6f 6d 70 6c |").(defv|ar compl|
|00000860| 65 74 65 72 2d 70 72 65 | 64 20 6e 69 6c 20 22 5c |eter-pre|d nil "\|
|00000870| 0a 4c 61 73 74 20 63 6f | 6d 70 6c 65 74 65 72 20 |.Last co|mpleter |
|00000880| 70 72 65 64 2e 22 29 0a | 28 64 65 66 76 61 72 20 |pred.").|(defvar |
|00000890| 63 6f 6d 70 6c 65 74 65 | 72 2d 6d 6f 64 65 20 6e |complete|r-mode n|
|000008a0| 69 6c 20 22 5c 0a 4c 61 | 73 74 20 63 6f 6d 70 6c |il "\.La|st compl|
|000008b0| 65 74 65 72 20 6d 6f 64 | 65 2e 22 29 0a 28 64 65 |eter mod|e.").(de|
|000008c0| 66 76 61 72 20 63 6f 6d | 70 6c 65 74 65 72 2d 72 |fvar com|pleter-r|
|000008d0| 65 73 75 6c 74 20 6e 69 | 6c 20 22 5c 0a 4c 61 73 |esult ni|l "\.Las|
|000008e0| 74 20 63 6f 6d 70 6c 65 | 74 65 72 20 72 65 73 75 |t comple|ter resu|
|000008f0| 6c 74 2e 22 29 0a 28 66 | 73 65 74 20 27 63 6f 6d |lt.").(f|set 'com|
|00000900| 70 6c 65 74 65 72 2d 6d | 65 73 73 61 67 65 20 23 |pleter-m|essage #|
|00000910| 5b 28 6d 65 73 73 61 67 | 65 20 26 6f 70 74 69 6f |[(messag|e &optio|
|00000920| 6e 61 6c 20 70 6f 69 6e | 74 29 20 22 08 ae 81 64 |nal poin|t) "...d|
|00000930| 10 c1 12 8a 08 62 88 0b | 63 88 60 29 c1 1c 1d c6 |.....b..|c.`)....|
|00000940| c7 21 88 08 0d 7c 88 0e | 08 ad 8f c9 ca 0e 0b 5c |.!...|..|.......\|
|00000950| 22 3f ad 87 cc 16 08 cd | 89 16 0e 2a 87 22 20 5b |"?......|...*." [|
|00000960| 70 6f 69 6e 74 20 74 20 | 63 6f 6d 70 6c 65 74 65 |point t |complete|
|00000970| 72 2d 6d 65 73 73 61 67 | 65 20 6d 65 73 73 61 67 |r-messag|e messag|
|00000980| 65 20 69 6e 68 69 62 69 | 74 2d 71 75 69 74 20 65 |e inhibi|t-quit e|
|00000990| 6e 64 20 73 69 74 2d 66 | 6f 72 20 32 20 71 75 69 |nd sit-f|or 2 qui|
|000009a0| 74 2d 66 6c 61 67 20 73 | 74 72 69 6e 67 2d 6d 61 |t-flag s|tring-ma|
|000009b0| 74 63 68 20 22 4c 75 63 | 69 64 22 20 65 6d 61 63 |tch "Luc|id" emac|
|000009c0| 73 2d 76 65 72 73 69 6f | 6e 20 6e 69 6c 20 37 20 |s-versio|n nil 7 |
|000009d0| 75 6e 72 65 61 64 2d 63 | 6f 6d 6d 61 6e 64 2d 63 |unread-c|ommand-c|
|000009e0| 68 61 72 5d 20 33 20 22 | 5c 0a 44 69 73 70 6c 61 |har] 3 "|\.Displa|
|000009f0| 79 20 4d 45 53 53 41 47 | 45 20 61 74 20 6f 70 74 |y MESSAG|E at opt|
|00000a00| 69 6f 6e 61 6c 20 50 4f | 49 4e 54 20 66 6f 72 20 |ional PO|INT for |
|00000a10| 74 77 6f 20 73 65 63 6f | 6e 64 73 2e 22 5d 29 0a |two seco|nds."]).|
|00000a20| 28 66 73 65 74 20 27 63 | 6f 6d 70 6c 65 74 65 72 |(fset 'c|ompleter|
|00000a30| 2d 64 65 6c 65 74 65 72 | 20 23 5b 28 72 65 67 65 |-deleter| #[(rege|
|00000a40| 78 70 20 63 68 6f 69 63 | 65 73 20 26 6f 70 74 69 |xp choic|es &opti|
|00000a50| 6f 6e 61 6c 20 6b 65 65 | 70 29 20 22 08 19 c2 1b |onal kee|p) "....|
|00000a60| 0c ab ae 09 ab 8e c5 0e | 06 09 40 5c 22 ac 86 09 |........|..@\"...|
|00000a70| 41 89 11 ac 72 09 13 0b | 41 ab c5 c5 0e 06 0b 41 |A...r...|A......A|
|00000a80| 40 5c 22 ab 86 0b 41 89 | 13 aa 6e 0b 89 41 41 a1 |@\"...A.|..n..AA.|
|00000a90| 88 aa 65 09 ab 8e c5 0e | 06 09 40 5c 22 ab 86 09 |..e.....|..@\"...|
|00000aa0| 41 89 11 ac 72 09 13 0b | 41 ab 97 c5 0e 06 0b 41 |A...r...|A......A|
|00000ab0| 40 5c 22 ab 88 0b 89 41 | 41 a1 88 aa 6b 0b 41 89 |@\"....A|A...k.A.|
|00000ac0| 13 aa 66 09 2a 87 22 20 | 5b 63 68 6f 69 63 65 73 |..f.*." |[choices|
|00000ad0| 20 63 68 6f 69 63 65 62 | 20 6e 69 6c 20 63 68 6f | choiceb| nil cho|
|00000ae0| 69 63 65 70 20 6b 65 65 | 70 20 73 74 72 69 6e 67 |icep kee|p string|
|00000af0| 2d 6d 61 74 63 68 20 72 | 65 67 65 78 70 5d 20 34 |-match r|egexp] 4|
|00000b00| 20 22 5c 0a 44 65 73 74 | 72 75 63 74 69 76 65 6c | "\.Dest|ructivel|
|00000b10| 79 20 72 65 6d 6f 76 65 | 20 73 74 72 69 6e 67 73 |y remove| strings|
|00000b20| 20 74 68 61 74 20 6d 61 | 74 63 68 20 52 45 47 45 | that ma|tch REGE|
|00000b30| 58 50 20 69 6e 20 43 48 | 4f 49 43 45 53 20 61 6e |XP in CH|OICES an|
|00000b40| 64 0a 72 65 74 75 72 6e | 20 74 68 65 20 6d 6f 64 |d.return| the mod|
|00000b50| 69 66 69 65 64 20 6c 69 | 73 74 2e 20 20 49 66 20 |ified li|st. If |
|00000b60| 6f 70 74 69 6f 6e 61 6c | 20 4b 45 45 50 2c 20 74 |optional| KEEP, t|
|00000b70| 68 65 6e 20 6b 65 65 70 | 20 65 6e 74 72 69 65 73 |hen keep| entries|
|00000b80| 20 74 68 61 74 0a 6d 61 | 74 63 68 20 72 65 67 65 | that.ma|tch rege|
|00000b90| 78 70 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 63 6f |xp."]).(|fset 'co|
|00000ba0| 6d 70 6c 65 74 65 72 2d | 72 65 67 65 78 70 20 23 |mpleter-|regexp #|
|00000bb0| 5b 28 73 74 72 69 6e 67 | 20 64 65 6c 69 6d 69 74 |[(string| delimit|
|00000bc0| 65 72 73 20 61 6e 79 29 | 20 22 c0 09 c2 51 1b 0c |ers any)| "...Q..|
|00000bd0| 47 1d c6 1e 07 c8 1e 09 | 0e 07 0d 57 ab cb ca 0b |G.......|...W....|
|00000be0| 0c 0e 07 23 ab c3 c6 94 | 1e 0b c6 95 1e 0c 0c 0e |...#....|........|
|00000bf0| 0b 0e 0c 4f 1e 0d 0c 0e | 0b 9c 0e 0e 3d 1e 0f d0 |...O....|....=...|
|00000c00| d1 0e 09 d2 0c 0e 07 0e | 0b 4f 21 0e 0f ab 83 09 |........|.O!.....|
|00000c10| aa 82 0e 0d 0e 0f ab 83 | 0b aa 84 d2 0e 0d 21 25 |........|......!%|
|00000c20| 16 09 0e 0c 16 07 2c aa | 2f 0e 07 0d 58 ad 8d 0e |......,.|/...X...|
|00000c30| 09 d2 0c 0e 07 0d 4f 21 | 50 89 16 09 2c 87 22 20 |......O!|P...,." |
|00000c40| 5b 22 5b 22 20 64 65 6c | 69 6d 69 74 65 72 73 20 |["[" del|imiters |
|00000c50| 22 5d 22 20 64 65 6c 69 | 6d 69 74 65 72 2d 72 65 |"]" deli|miter-re|
|00000c60| 67 20 73 74 72 69 6e 67 | 20 6c 69 6d 69 74 20 30 |g string| limit 0|
|00000c70| 20 70 6f 73 20 22 5e 22 | 20 72 65 67 65 78 70 20 | pos "^"| regexp |
|00000c80| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 62 65 67 |string-m|atch beg|
|00000c90| 69 6e 20 65 6e 64 20 64 | 65 6c 69 6d 69 74 65 72 |in end d|elimiter|
|00000ca0| 20 61 6e 79 20 61 6e 79 | 70 20 66 6f 72 6d 61 74 | any any|p format|
|00000cb0| 20 22 25 73 25 73 5b 5e | 25 73 5d 2a 25 73 22 20 | "%s%s[^|%s]*%s" |
|00000cc0| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 5d 20 37 20 |regexp-q|uote] 7 |
|00000cd0| 22 5c 0a 43 6f 6e 76 65 | 72 74 20 53 54 52 49 4e |"\.Conve|rt STRIN|
|00000ce0| 47 20 69 6e 74 6f 20 61 | 20 72 65 67 65 78 70 20 |G into a| regexp |
|00000cf0| 77 69 74 68 20 77 6f 72 | 64 73 20 64 65 6c 69 6d |with wor|ds delim|
|00000d00| 69 74 65 64 20 62 79 20 | 63 68 61 72 61 63 74 65 |ited by |characte|
|00000d10| 72 73 20 69 6e 0a 44 45 | 4c 49 4d 49 54 45 52 53 |rs in.DE|LIMITERS|
|00000d20| 2e 20 20 41 6e 79 20 64 | 65 6c 69 6d 69 74 65 72 |. Any d|elimiter|
|00000d30| 20 69 6e 20 53 54 52 49 | 4e 47 20 74 68 61 74 20 | in STRI|NG that |
|00000d40| 69 73 20 74 68 65 20 73 | 61 6d 65 20 61 73 20 41 |is the s|ame as A|
|00000d50| 4e 59 20 77 69 6c 6c 0a | 6d 61 74 63 68 20 61 6e |NY will.|match an|
|00000d60| 79 20 64 65 6c 69 6d 69 | 74 65 72 2e 22 5d 29 0a |y delimi|ter."]).|
|00000d70| 28 66 73 65 74 20 27 63 | 6f 6d 70 6c 65 74 65 72 |(fset 'c|ompleter|
|00000d80| 2d 77 6f 72 64 73 20 23 | 5b 28 72 65 67 65 78 70 |-words #|[(regexp|
|00000d90| 20 73 74 72 69 6e 67 20 | 26 6f 70 74 69 6f 6e 61 | string |&optiona|
|00000da0| 6c 20 6c 69 6d 69 74 29 | 20 22 08 ae 81 c1 10 c2 |l limit)| "......|
|00000db0| c3 1c 1d c6 0e 07 0e 08 | 0c 23 ab 8d 0d 08 58 ab |........|.#....X.|
|00000dc0| 88 0d 54 15 c3 95 14 aa | 6a 0d 2a 87 22 20 5b 6c |..T.....|j.*." [l|
|00000dd0| 69 6d 69 74 20 31 30 30 | 30 20 31 20 30 20 70 6f |imit 100|0 1 0 po|
|00000de0| 73 20 63 6f 75 6e 74 20 | 73 74 72 69 6e 67 2d 6d |s count |string-m|
|00000df0| 61 74 63 68 20 72 65 67 | 65 78 70 20 73 74 72 69 |atch reg|exp stri|
|00000e00| 6e 67 5d 20 34 20 22 5c | 0a 52 65 74 75 72 6e 20 |ng] 4 "\|.Return |
|00000e10| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 77 6f |the numb|er of wo|
|00000e20| 72 64 73 20 6d 61 74 63 | 68 69 6e 67 20 52 45 47 |rds matc|hing REG|
|00000e30| 45 58 50 20 69 6e 20 53 | 54 52 49 4e 47 20 75 70 |EXP in S|TRING up|
|00000e40| 20 74 6f 20 4c 49 4d 49 | 54 2e 22 5d 29 0a 28 66 | to LIMI|T."]).(f|
|00000e50| 73 65 74 20 27 63 6f 6d | 70 6c 65 74 65 72 2d 6d |set 'com|pleter-m|
|00000e60| 61 74 63 68 65 73 20 23 | 5b 28 73 74 72 69 6e 67 |atches #|[(string|
|00000e70| 20 63 68 6f 69 63 65 73 | 20 64 65 6c 69 6d 69 74 | choices| delimit|
|00000e80| 65 72 73 20 61 6e 79 29 | 20 22 c0 09 c2 51 1b c4 |ers any)| "...Q..|
|00000e90| 1d c6 1e 07 c4 1e 08 0e | 09 47 1e 5c 6e c4 1e 0b |........|.G.\n...|
|00000ea0| c4 1e 0c c4 1e 0d c4 1e | 0e c4 1e 0f c4 1e 10 c4 |........|........|
|00000eb0| 1e 11 0d ae 81 c6 0e 5c | 6e 57 ab d1 d2 0b 0e 09 |.......\|nW......|
|00000ec0| 0d ad 82 0d 54 23 ae 82 | 0e 5c 6e 16 07 0e 09 0d |....T#..|.\n.....|
|00000ed0| ae 81 c6 9c 0e 13 3d ab | 96 0e 09 0d ab 84 0d 54 |......=.|.......T|
|00000ee0| aa 81 c6 0e 07 4f 89 16 | 0c 47 5b 16 0d aa 8f 0e |.....O..|.G[.....|
|00000ef0| 09 0d ae 81 c6 0e 07 4f | 89 16 0c 47 16 0d 0e 0c |.......O|...G....|
|00000f00| 0e 0d 42 0e 08 42 16 08 | 0e 07 89 15 aa 27 d4 0e |..B..B..|.....'..|
|00000f10| 08 21 16 08 c0 09 c2 51 | 13 0e 15 83 1b 01 0e 15 |.!.....Q|........|
|00000f20| 40 16 0e 0e 08 16 0f c6 | 15 0e 0f ab e7 0d ab e4 |@.......|........|
|00000f30| c4 1e 16 c4 1e 17 0e 0f | 40 89 16 11 41 89 16 10 |........|@...A...|
|00000f40| c6 57 ab 8d 0d 54 89 16 | 16 0e 10 5b 5c 5c 16 17 |.W...T..|...[\\..|
|00000f50| aa 89 0d 89 16 16 0e 10 | 5c 5c 16 17 0e 17 0e 0e |........|\\......|
|00000f60| 47 58 ad 91 0e 10 c6 55 | ae 8b 0e 11 40 0e 0e 0e |GX.....U|....@...|
|00000f70| 16 0e 17 4f 98 2a ab 9e | d2 0b 0e 0e 0d c6 55 ab |...O.*..|......U.|
|00000f80| 89 0e 10 c6 55 ab 83 0d | aa 82 0d 54 23 15 0e 0f |....U...|...T#...|
|00000f90| 41 89 16 0f ac 19 0e 0f | ac 87 0e 0e 0e 0b 42 16 |A.......|......B.|
|00000fa0| 0b 0e 15 41 89 16 15 84 | 91 00 0e 0b 2e 0c 87 22 |...A....|......."|
|00000fb0| 20 5b 22 5b 22 20 64 65 | 6c 69 6d 69 74 65 72 73 | ["[" de|limiters|
|00000fc0| 20 22 5d 22 20 72 65 67 | 65 78 70 20 6e 69 6c 20 | "]" reg|exp nil |
|00000fd0| 66 72 6f 6d 20 30 20 74 | 6f 20 70 61 74 74 65 72 |from 0 t|o patter|
|00000fe0| 6e 20 73 74 72 69 6e 67 | 20 6c 65 6e 20 6d 61 74 |n string| len mat|
|00000ff0| 63 68 65 73 20 73 75 62 | 20 73 75 62 6c 65 6e 20 |ches sub| sublen |
|00001000| 63 68 6f 69 63 65 20 77 | 6f 72 64 20 77 6f 72 64 |choice w|ord word|
|00001010| 6c 65 6e 20 70 61 74 20 | 73 74 72 69 6e 67 2d 6d |len pat |string-m|
|00001020| 61 74 63 68 20 63 6f 6d | 70 6c 65 74 65 72 2d 61 |atch com|pleter-a|
|00001030| 6e 79 2d 64 65 6c 69 6d | 69 74 65 72 20 72 65 76 |ny-delim|iter rev|
|00001040| 65 72 73 65 20 63 68 6f | 69 63 65 73 20 62 65 67 |erse cho|ices beg|
|00001050| 69 6e 20 65 6e 64 5d 20 | 36 20 22 5c 0a 52 65 74 |in end] |6 "\.Ret|
|00001060| 75 72 6e 20 53 54 52 49 | 4e 47 27 73 20 6d 61 74 |urn STRI|NG's mat|
|00001070| 63 68 65 73 20 69 6e 20 | 43 48 4f 49 43 45 53 20 |ches in |CHOICES |
|00001080| 75 73 69 6e 67 20 44 45 | 4c 49 4d 49 54 45 52 53 |using DE|LIMITERS|
|00001090| 20 61 6e 64 20 77 69 6c | 64 63 61 72 64 0a 41 4e | and wil|dcard.AN|
|000010a0| 59 20 74 6f 20 73 65 67 | 6d 65 6e 74 20 74 68 65 |Y to seg|ment the|
|000010b0| 20 73 74 72 69 6e 67 73 | 2e 22 5d 29 0a 28 66 73 | strings|."]).(fs|
|000010c0| 65 74 20 27 63 6f 6d 70 | 6c 65 74 65 72 2d 63 68 |et 'comp|leter-ch|
|000010d0| 6f 69 63 65 20 23 5b 28 | 73 74 72 69 6e 67 20 63 |oice #[(|string c|
|000010e0| 68 6f 69 63 65 73 20 64 | 65 6c 69 6d 69 74 65 72 |hoices d|elimiter|
|000010f0| 73 20 75 73 65 2d 77 6f | 72 64 73 29 20 22 08 41 |s use-wo|rds) ".A|
|00001100| ac 87 08 40 c1 42 86 a1 | 00 c2 0b c4 0b c5 b0 05 |...@.B..|........|
|00001110| 1e 06 0e 07 ad 86 c8 0e | 06 0e 09 5c 22 1e 5c 6e |........|...\".\n|
|00001120| 08 1e 0b cc 1e 0d cc 1e | 0e cc 1e 0f d0 1e 11 0e |........|........|
|00001130| 0b ab e7 0e 0b 40 89 1e | 12 47 1e 13 0e 0f ab a1 |.....@..|.G......|
|00001140| c8 0e 06 0e 12 0e 5c 6e | 23 0e 5c 6e 55 ab c4 cc |......\n|#.\nU...|
|00001150| 16 0d 0e 13 0e 11 57 ab | ba 0e 12 16 0e 0e 13 16 |......W.|........|
|00001160| 11 aa b0 0e 07 ab 9d c8 | 0e 06 0e 12 0e 5c 6e 23 |........|.....\n#|
|00001170| 0e 5c 6e 55 ab 90 0e 12 | 16 0e 0e 13 16 11 c1 16 |.\nU....|........|
|00001180| 0f c1 16 0d aa 8f 0e 13 | 0e 11 57 ab 88 0e 12 16 |........|..W.....|
|00001190| 0e 0e 13 16 11 2a 0e 0b | 41 89 16 0b ac 19 0e 0e |.....*..|A.......|
|000011a0| 0e 0d 2e 07 42 87 22 20 | 5b 63 68 6f 69 63 65 73 |....B." |[choices|
|000011b0| 20 74 20 22 5b 5e 22 20 | 64 65 6c 69 6d 69 74 65 | t "[^" |delimite|
|000011c0| 72 73 20 22 5d 2a 5b 22 | 20 22 5d 22 20 72 65 67 |rs "]*["| "]" reg|
|000011d0| 65 78 70 20 75 73 65 2d | 77 6f 72 64 73 20 63 6f |exp use-|words co|
|000011e0| 6d 70 6c 65 74 65 72 2d | 77 6f 72 64 73 20 73 74 |mpleter-|words st|
|000011f0| 72 69 6e 67 20 77 6f 72 | 64 73 20 63 68 6f 69 63 |ring wor|ds choic|
|00001200| 65 20 6e 69 6c 20 75 6e | 69 71 75 65 2d 70 20 6d |e nil un|ique-p m|
|00001210| 61 74 63 68 20 6d 61 74 | 63 68 2d 63 6f 75 6e 74 |atch mat|ch-count|
|00001220| 20 31 30 30 30 20 6d 61 | 74 63 68 2d 6c 65 6e 20 | 1000 ma|tch-len |
|00001230| 63 75 72 72 65 6e 74 20 | 6c 65 6e 67 74 68 5d 20 |current |length] |
|00001240| 36 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |6 "\.Ret|urn the |
|00001250| 62 65 73 74 20 6d 61 74 | 63 68 20 6f 66 20 53 54 |best mat|ch of ST|
|00001260| 52 49 4e 47 20 69 6e 20 | 43 48 4f 49 43 45 53 20 |RING in |CHOICES |
|00001270| 77 69 74 68 20 44 45 4c | 49 4d 49 54 45 52 53 20 |with DEL|IMITERS |
|00001280| 62 65 74 77 65 65 6e 0a | 77 6f 72 64 73 20 61 6e |between.|words an|
|00001290| 64 20 54 20 69 66 20 69 | 74 20 69 73 20 75 6e 69 |d T if i|t is uni|
|000012a0| 71 75 65 2e 20 20 41 20 | 6d 61 74 63 68 20 69 73 |que. A |match is|
|000012b0| 20 75 6e 69 71 75 65 20 | 69 66 20 69 74 20 69 73 | unique |if it is|
|000012c0| 20 74 68 65 20 6f 6e 6c | 79 0a 70 6f 73 73 69 62 | the onl|y.possib|
|000012d0| 69 6c 69 74 79 20 6f 72 | 20 77 68 65 6e 20 55 53 |ility or| when US|
|000012e0| 45 2d 57 4f 52 44 53 20 | 74 68 65 20 6f 6e 6c 79 |E-WORDS |the only|
|000012f0| 20 70 6f 73 73 69 62 69 | 6c 69 74 79 20 77 69 74 | possibi|lity wit|
|00001300| 68 20 74 68 65 20 73 61 | 6d 65 0a 6e 75 6d 62 65 |h the sa|me.numbe|
|00001310| 72 20 6f 66 20 77 6f 72 | 64 73 2e 20 20 54 68 65 |r of wor|ds. The|
|00001320| 20 73 68 6f 72 74 65 73 | 74 20 73 74 72 69 6e 67 | shortes|t string|
|00001330| 20 6f 66 20 6d 75 6c 74 | 69 70 6c 65 20 70 6f 73 | of mult|iple pos|
|00001340| 73 69 62 6c 69 74 69 65 | 73 20 77 69 6c 6c 20 62 |siblitie|s will b|
|00001350| 65 0a 74 68 65 20 62 65 | 73 74 20 6d 61 74 63 68 |e.the be|st match|
|00001360| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 63 6f 6d 70 |."]).(fs|et 'comp|
|00001370| 6c 65 74 65 72 2d 72 65 | 67 69 6f 6e 20 23 5b 28 |leter-re|gion #[(|
|00001380| 64 65 6c 69 6d 69 74 65 | 72 73 29 20 22 8a 08 c1 |delimite|rs) "...|
|00001390| 78 88 60 29 8a 08 c1 77 | 88 60 29 42 87 22 20 5b |x.`)...w|.`)B." [|
|000013a0| 64 65 6c 69 6d 69 74 65 | 72 73 20 6e 69 6c 5d 20 |delimite|rs nil] |
|000013b0| 33 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |3 "\.Ret|urn the |
|000013c0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 72 65 67 69 6f |completi|on regio|
|000013d0| 6e 20 62 6f 75 6e 64 65 | 64 20 62 79 20 63 68 61 |n bounde|d by cha|
|000013e0| 72 61 63 74 65 72 73 20 | 69 6e 20 44 45 4c 49 4d |racters |in DELIM|
|000013f0| 49 54 45 52 53 0a 66 6f | 72 20 74 68 65 20 63 75 |ITERS.fo|r the cu|
|00001400| 72 72 65 6e 74 20 62 75 | 66 66 65 72 20 61 73 73 |rrent bu|ffer ass|
|00001410| 75 6d 69 6e 67 20 74 68 | 61 74 20 70 6f 69 6e 74 |uming th|at point|
|00001420| 20 69 73 20 69 6e 20 69 | 74 2e 22 5d 29 0a 28 66 | is in i|t."]).(f|
|00001430| 73 65 74 20 27 63 6f 6d | 70 6c 65 74 65 72 2d 6c |set 'com|pleter-l|
|00001440| 61 73 74 2d 63 6f 6d 70 | 6f 6e 65 6e 74 20 23 5b |ast-comp|onent #[|
|00001450| 28 73 74 72 69 6e 67 29 | 20 22 08 47 53 c1 89 1a |(string)| ".GS...|
|00001460| 1b 1c c5 c6 08 5c 6e 23 | 89 13 ab 8a 0b 0c 57 ab |.....\n#|......W.|
|00001470| 85 0b 54 12 aa 6d 5c 6e | 2b 87 22 20 5b 73 74 72 |..T..m\n|+." [str|
|00001480| 69 6e 67 20 30 20 65 6e | 64 20 6d 61 74 63 68 20 |ing 0 en|d match |
|00001490| 6c 61 73 74 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |last str|ing-matc|
|000014a0| 68 20 22 2f 22 5d 20 34 | 20 22 5c 0a 52 65 74 75 |h "/"] 4| "\.Retu|
|000014b0| 72 6e 20 74 68 65 20 73 | 74 61 72 74 20 6f 66 20 |rn the s|tart of |
|000014c0| 74 68 65 20 6c 61 73 74 | 20 66 69 6c 65 6e 61 6d |the last| filenam|
|000014d0| 65 20 63 6f 6d 70 6f 6e | 65 6e 74 20 69 6e 20 53 |e compon|ent in S|
|000014e0| 54 52 49 4e 47 2e 22 5d | 29 0a 28 66 73 65 74 20 |TRING."]|).(fset |
|000014f0| 27 63 6f 6d 70 6c 65 74 | 65 72 2d 6d 61 74 63 68 |'complet|er-match|
|00001500| 2d 72 65 63 6f 72 64 20 | 23 5b 28 73 74 72 69 6e |-record |#[(strin|
|00001510| 67 20 6d 61 74 63 68 65 | 73 20 64 65 6c 69 6d 69 |g matche|s delimi|
|00001520| 74 65 72 73 20 61 6e 79 | 20 64 69 72 20 6d 6f 64 |ters any| dir mod|
|00001530| 65 29 20 22 08 ab 88 09 | c2 09 21 c3 4f aa 81 09 |e) "....|..!.O...|
|00001540| c3 1c 1d c6 0d 0e 07 0e | 08 0e 09 24 16 07 ca 0d |........|...$....|
|00001550| cb cc 0e 07 5c 22 5c 22 | 89 14 3b ab 8a 0c 0e 07 |....\"\"|..;.....|
|00001560| 9d ab 84 0c 43 16 07 0e | 07 41 ab ac 08 ca cd cb |....C...|.A......|
|00001570| cc 0e 07 5c 22 5c 22 50 | 1e 0e 0e 0f 3f ad 89 d0 |...\"\"P|....?...|
|00001580| 0d 0e 07 0e 08 0e 11 24 | 89 14 ad 84 08 0c 40 50 |.......$|......@P|
|00001590| 0e 0e 0e 07 0c 41 46 29 | aa 97 0e 07 ab 8e 08 0e |.....AF)|........|
|000015a0| 07 40 50 89 14 89 0e 07 | d2 46 aa 85 c3 89 89 89 |.@P.....|.F......|
|000015b0| 46 2a 87 22 20 5b 64 69 | 72 20 73 74 72 69 6e 67 |F*." [di|r string|
|000015c0| 20 63 6f 6d 70 6c 65 74 | 65 72 2d 6c 61 73 74 2d | complet|er-last-|
|000015d0| 63 6f 6d 70 6f 6e 65 6e | 74 20 6e 69 6c 20 6d 61 |componen|t nil ma|
|000015e0| 74 63 68 20 70 61 74 74 | 65 72 6e 20 63 6f 6d 70 |tch patt|ern comp|
|000015f0| 6c 65 74 65 72 2d 6d 61 | 74 63 68 65 73 20 6d 61 |leter-ma|tches ma|
|00001600| 74 63 68 65 73 20 64 65 | 6c 69 6d 69 74 65 72 73 |tches de|limiters|
|00001610| 20 61 6e 79 20 74 72 79 | 2d 63 6f 6d 70 6c 65 74 | any try|-complet|
|00001620| 69 6f 6e 20 6d 61 70 63 | 61 72 20 6c 69 73 74 20 |ion mapc|ar list |
|00001630| 22 22 20 6c 63 73 20 63 | 6f 6d 70 6c 65 74 65 72 |"" lcs c|ompleter|
|00001640| 2d 65 78 61 63 74 20 63 | 6f 6d 70 6c 65 74 65 72 |-exact c|ompleter|
|00001650| 2d 63 68 6f 69 63 65 20 | 63 6f 6d 70 6c 65 74 65 |-choice |complete|
|00001660| 72 2d 75 73 65 2d 77 6f | 72 64 73 20 74 5d 20 37 |r-use-wo|rds t] 7|
|00001670| 20 22 5c 0a 52 65 74 75 | 72 6e 20 28 6d 61 74 63 | "\.Retu|rn (matc|
|00001680| 68 20 6c 63 73 20 63 68 | 6f 69 63 65 73 20 75 6e |h lcs ch|oices un|
|00001690| 69 71 75 65 29 20 66 6f | 72 20 53 54 52 49 4e 47 |ique) fo|r STRING|
|000016a0| 20 69 6e 20 4d 41 54 43 | 48 45 53 20 77 69 74 68 | in MATC|HES with|
|000016b0| 0a 44 45 4c 49 4d 49 54 | 45 52 53 20 6f 72 20 41 |.DELIMIT|ERS or A|
|000016c0| 4e 59 20 77 69 6c 64 63 | 61 72 64 73 20 61 6e 64 |NY wildc|ards and|
|000016d0| 20 44 49 52 20 69 66 20 | 61 20 66 69 6c 65 6e 61 | DIR if |a filena|
|000016e0| 6d 65 20 77 68 65 6e 20 | 69 6e 20 4d 4f 44 45 2e |me when |in MODE.|
|000016f0| 22 5d 29 0a 28 66 73 65 | 74 20 27 63 6f 6d 70 6c |"]).(fse|t 'compl|
|00001700| 65 74 65 72 2d 65 78 74 | 65 6e 73 69 6f 6e 2d 72 |eter-ext|ension-r|
|00001710| 65 67 65 78 70 20 23 5b | 28 65 78 74 65 6e 73 69 |egexp #[|(extensi|
|00001720| 6f 6e 73 29 20 22 c0 c1 | c2 0b c4 23 c5 51 87 22 |ons) "..|...#.Q."|
|00001730| 20 5b 22 5c 5c 28 22 20 | 6d 61 70 63 6f 6e 63 61 | ["\\(" |mapconca|
|00001740| 74 20 72 65 67 65 78 70 | 2d 71 75 6f 74 65 20 65 |t regexp|-quote e|
|00001750| 78 74 65 6e 73 69 6f 6e | 73 20 22 5c 5c 7c 22 20 |xtension|s "\\|" |
|00001760| 22 5c 5c 29 5c 5c 27 22 | 5d 20 35 20 22 5c 0a 52 |"\\)\\'"|] 5 "\.R|
|00001770| 65 74 75 72 6e 20 61 20 | 72 65 67 65 78 70 20 74 |eturn a |regexp t|
|00001780| 68 61 74 20 6d 61 74 63 | 68 65 73 20 74 6f 20 61 |hat matc|hes to a|
|00001790| 20 73 74 72 69 6e 67 20 | 74 68 61 74 20 65 6e 64 | string |that end|
|000017a0| 73 20 77 69 74 68 20 61 | 6e 79 20 73 74 72 69 6e |s with a|ny strin|
|000017b0| 67 20 66 72 6f 6d 20 45 | 58 54 45 4e 53 49 4f 4e |g from E|XTENSION|
|000017c0| 53 20 6c 69 73 74 2e 22 | 5d 29 0a 28 66 73 65 74 |S list."|]).(fset|
|000017d0| 20 27 63 6f 6d 70 6c 65 | 74 65 72 2d 66 6c 75 73 | 'comple|ter-flus|
|000017e0| 68 20 23 5b 6e 69 6c 20 | 22 c0 89 11 87 22 20 5b |h #[nil |"...." [|
|000017f0| 6e 69 6c 20 63 6f 6d 70 | 6c 65 74 65 72 2d 70 61 |nil comp|leter-pa|
|00001800| 74 68 2d 63 61 63 68 65 | 5d 20 32 20 22 5c 0a 46 |th-cache|] 2 "\.F|
|00001810| 6c 75 73 68 20 63 6f 6d | 70 6c 65 74 65 72 27 73 |lush com|pleter's|
|00001820| 20 70 61 74 68 6e 61 6d | 65 20 63 61 63 68 65 2e | pathnam|e cache.|
|00001830| 22 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 63 |" nil]).|(fset 'c|
|00001840| 6f 6d 70 6c 65 74 65 72 | 2d 63 61 63 68 65 20 23 |ompleter|-cache #|
|00001850| 5b 28 70 61 74 68 20 70 | 72 65 64 20 77 6f 72 64 |[(path p|red word|
|00001860| 73 20 61 6e 79 20 6d 6f | 64 65 29 20 22 c0 19 5c |s any mo|de) "..\|
|00001870| 6e 1b c4 1d c0 1e 06 0e | 07 ab b4 0b ab b1 0b 40 |n.......|.......@|
|00001880| 40 89 1e 08 0e 09 98 ab | 97 09 ab 8b 09 0b 41 a1 |@.......|......A.|
|00001890| 88 0b 5c 6e a1 88 0b 12 | 0b 40 41 16 06 c0 13 aa |..\n....|.@A.....|
|000018a0| 8c 0b 41 ab 82 0b 11 0d | 54 15 0b 41 13 29 aa 4c |..A.....|T..A.).L|
|000018b0| 0e 06 ae c2 ca 0e 09 cb | 0e 0c 0e 0d 0e 0e 0e 0f |........|........|
|000018c0| d0 26 07 89 1e 11 41 41 | 41 40 ac 88 0e 09 0e 11 |.&....AA|A@......|
|000018d0| 40 98 ab 9f 0e 11 40 0e | 11 40 47 53 9c d2 3d ab |@.....@.|.@GS..=.|
|000018e0| 92 0d 0e 13 59 ab 84 09 | c0 a1 88 0e 09 0e 11 42 |....Y...|.......B|
|000018f0| 5c 6e 42 12 0e 11 29 2c | 87 22 20 5b 6e 69 6c 20 |\nB...),|." [nil |
|00001900| 6c 61 73 74 20 63 6f 6d | 70 6c 65 74 65 72 2d 70 |last com|pleter-p|
|00001910| 61 74 68 2d 63 61 63 68 | 65 20 70 74 72 20 30 20 |ath-cach|e ptr 0 |
|00001920| 73 69 7a 65 20 72 65 73 | 75 6c 74 20 63 6f 6d 70 |size res|ult comp|
|00001930| 6c 65 74 65 72 2d 75 73 | 65 2d 63 61 63 68 65 20 |leter-us|e-cache |
|00001940| 63 75 72 72 65 6e 74 20 | 70 61 74 68 20 63 6f 6d |current |path com|
|00001950| 70 6c 65 74 65 72 20 72 | 65 61 64 2d 66 69 6c 65 |pleter r|ead-file|
|00001960| 2d 6e 61 6d 65 2d 69 6e | 74 65 72 6e 61 6c 20 70 |-name-in|ternal p|
|00001970| 72 65 64 20 77 6f 72 64 | 73 20 61 6e 79 20 6d 6f |red word|s any mo|
|00001980| 64 65 20 74 20 63 68 6f | 69 63 65 73 20 34 37 20 |de t cho|ices 47 |
|00001990| 63 6f 6d 70 6c 65 74 65 | 72 2d 63 61 63 68 65 2d |complete|r-cache-|
|000019a0| 73 69 7a 65 5d 20 39 20 | 22 5c 0a 43 68 65 63 6b |size] 9 |"\.Check|
|000019b0| 20 74 6f 20 73 65 65 20 | 69 66 20 50 41 54 48 20 | to see |if PATH |
|000019c0| 69 73 20 69 6e 20 70 61 | 74 68 20 63 61 63 68 65 |is in pa|th cache|
|000019d0| 20 77 69 74 68 20 50 52 | 45 44 2c 20 57 4f 52 44 | with PR|ED, WORD|
|000019e0| 53 2c 20 41 4e 59 20 61 | 6e 64 0a 4d 4f 44 45 2e |S, ANY a|nd.MODE.|
|000019f0| 22 5d 29 0a 28 66 73 65 | 74 20 27 63 6f 6d 70 6c |"]).(fse|t 'compl|
|00001a00| 65 74 65 72 2d 66 69 6c | 65 20 23 5b 28 73 74 72 |eter-fil|e #[(str|
|00001a10| 69 6e 67 20 70 72 65 64 | 20 77 6f 72 64 73 20 61 |ing pred| words a|
|00001a20| 6e 79 20 6d 6f 64 65 29 | 20 22 08 19 5c 6e c3 3d |ny mode)| "..\n.=|
|00001a30| ad 83 c4 0d 21 1e 06 c7 | c8 0d 5c 22 ab 84 c9 95 |....!...|..\"....|
|00001a40| aa 84 c7 ca 0d 5c 22 1e | 0b 0d c9 0e 0b 4f 89 1e |.....\".|.....O..|
|00001a50| 0c cd 98 ad 89 ce cf 0e | 0c 21 21 89 16 0c 1e 10 |........|.!!.....|
|00001a60| 0e 11 d2 50 1e 11 0d 47 | 1e 13 d4 1e 15 d4 1e 16 |...P...G|........|
|00001a70| d4 89 89 89 46 1e 17 0e | 0b 83 89 01 c7 d2 0d 0e |....F...|........|
|00001a80| 0b 23 1e 18 d4 1e 19 0e | 18 ad 82 c9 95 16 16 5c |.#......|.......\|
|00001a90| 6e da 3e ab c7 0e 0b 0e | 13 55 ab c0 db dc dd 0e |n.>.....|.U......|
|00001aa0| 0c de 5c 22 89 1e 15 89 | 1e 1f 40 e0 98 ab 86 0e |..\"....|..@.....|
|00001ab0| 1f 41 41 aa 9c 0e 1f 41 | ab 95 0e 1f 41 40 e0 98 |.AA....A|....A@..|
|00001ac0| ab 85 0e 1f d4 a1 88 0e | 1f 41 89 16 1f aa 68 0e |........|.A....h.|
|00001ad0| 15 2a 0e 11 0e 21 0e 0c | 5c 6e 26 06 aa cb 0e 0b |.*...!..|\n&.....|
|00001ae0| 0e 06 3d ab 92 0e 0c 0d | 0e 0b d4 4f 50 89 1e 0c |..=.....|...OP...|
|00001af0| 89 d4 e2 46 29 aa b2 0d | 0e 0b 0e 16 4f 1e 23 0e |...F)...|....O.#.|
|00001b00| 16 ab 97 c7 0e 24 0e 23 | 5c 22 ab 8f 0e 0c 0e 23 |.....$.#|\".....#|
|00001b10| 50 0e 0c 0e 23 50 d4 e2 | 46 aa 8e e5 0e 0c 0e 23 |P...#P..|F......#|
|00001b20| 50 0e 26 0e 11 0e 21 5c | 6e 25 29 89 16 15 41 41 |P.&...!\|n%)...AA|
|00001b30| 41 40 ac 92 0e 0c 0d 0e | 0b 0e 16 4f 50 0e 15 40 |A@......|...OP..@|
|00001b40| 98 89 16 19 ab c8 0e 15 | 41 40 1e 27 0e 15 41 41 |........|A@.'..AA|
|00001b50| 40 1e 28 0e 27 ad 85 c7 | e9 0e 27 5c 22 1e 2a d4 |@.(.'...|..'\".*.|
|00001b60| 0e 2a ab 88 0e 27 c9 0e | 2a 4f aa 82 0e 27 0e 28 |.*...'..|*O...'.(|
|00001b70| 41 ad 8c 5c 6e eb 3d ac | 85 0e 19 3f ad 82 0e 28 |A..\n.=.|...?...(|
|00001b80| d4 46 2b 16 17 0e 15 40 | 16 0c 0e 16 16 0b aa a9 |.F+....@|........|
|00001b90| 0e 0b ec 55 ab a0 0d c9 | 9c ed 55 ab 99 0d c9 0e |...U....|..U.....|
|00001ba0| 16 4f 89 16 0c 89 0e 0c | 43 e2 46 16 15 d4 16 10 |.O......|C.F.....|
|00001bb0| 0e 16 16 0b aa 83 d4 16 | 0b 2a 82 4a 00 0e 15 40 |........|.*.J...@|
|00001bc0| ac 84 0e 17 16 15 0e 15 | 40 ab fd 5c 6e eb 3d ac |........|@..\n.=.|
|00001bd0| f8 0e 15 41 41 41 40 ac | f0 ee 0e 2f 21 1e 30 0e |...AAA@.|.../!.0.|
|00001be0| 15 41 41 40 89 1e 31 1e | 1f d4 1e 32 d4 1e 33 0e |.AA@..1.|...2..3.|
|00001bf0| 1f ab af c7 0e 30 0e 1f | 40 5c 22 ab 85 e2 16 32 |.....0..|@\"....2|
|00001c00| aa 83 e2 16 33 0e 32 ab | 92 0e 33 ab 8e f4 0e 30 |....3.2.|..3....0|
|00001c10| 0e 31 5c 22 16 31 d4 89 | 16 1f aa 57 0e 1f 41 89 |.1\".1..|...W..A.|
|00001c20| 16 1f ac 51 0e 32 ab a2 | 0e 33 ab 9e db 0e 16 ab |...Q.2..|.3......|
|00001c30| 87 0d 0e 16 d4 4f aa 81 | dc 0e 31 0e 11 0e 21 ce |.....O..|..1...!.|
|00001c40| 0e 15 41 40 21 5c 6e 26 | 06 16 15 2d 0e 10 ab b0 |..A@!\n&|...-....|
|00001c50| 0e 15 40 0e 15 41 40 0e | 10 47 1e 13 1e 27 89 1e |..@..A@.|.G...'..|
|00001c60| 35 ad 88 cd 0e 35 0e 13 | d4 4f 50 0e 27 ad 88 cd |5....5..|.OP.'...|
|00001c70| 0e 27 0e 13 d4 4f 50 0e | 15 41 41 42 42 16 15 2b |.'...OP.|.AABB..+|
|00001c80| 0e 15 2e 5c 6e 87 22 20 | 5b 63 6f 6d 70 6c 65 74 |...\n." |[complet|
|00001c90| 69 6f 6e 2d 69 67 6e 6f | 72 65 2d 63 61 73 65 20 |ion-igno|re-case |
|00001ca0| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00001cb0| 20 6d 6f 64 65 20 65 78 | 69 74 2d 6f 6b 20 63 6f | mode ex|it-ok co|
|00001cc0| 6d 70 6c 65 74 65 72 2d | 6c 61 73 74 2d 63 6f 6d |mpleter-|last-com|
|00001cd0| 70 6f 6e 65 6e 74 20 73 | 74 72 69 6e 67 20 6c 61 |ponent s|tring la|
|00001ce0| 73 74 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |st strin|g-match |
|00001cf0| 22 5e 2f 5c 5c 2e 5c 5c | 2e 2f 5b 5e 2f 5d 2a 2f |"^/\\.\\|./[^/]*/|
|00001d00| 22 20 30 20 22 5b 5e 7e | 2f 5d 22 20 70 6f 73 69 |" 0 "[^~|/]" posi|
|00001d10| 74 69 6f 6e 20 6e 65 77 | 20 22 7e 22 20 66 69 6c |tion new| "~" fil|
|00001d20| 65 2d 6e 61 6d 65 2d 64 | 69 72 65 63 74 6f 72 79 |e-name-d|irectory|
|00001d30| 20 65 78 70 61 6e 64 2d | 66 69 6c 65 2d 6e 61 6d | expand-|file-nam|
|00001d40| 65 20 75 73 65 72 20 77 | 6f 72 64 73 20 22 2f 22 |e user w|ords "/"|
|00001d50| 20 6c 65 6e 20 6e 69 6c | 20 63 68 6f 69 63 65 73 | len nil| choices|
|00001d60| 20 65 6e 64 20 6f 6c 64 | 2d 63 68 6f 69 63 65 73 | end old|-choices|
|00001d70| 20 62 65 67 69 6e 20 65 | 78 61 63 74 2d 70 20 28 | begin e|xact-p (|
|00001d80| 6e 69 6c 20 68 65 6c 70 | 29 20 63 6f 6d 70 6c 65 |nil help|) comple|
|00001d90| 74 65 72 2d 6d 61 74 63 | 68 2d 72 65 63 6f 72 64 |ter-matc|h-record|
|00001da0| 20 22 22 20 61 6c 6c 2d | 63 6f 6d 70 6c 65 74 69 | "" all-|completi|
|00001db0| 6f 6e 73 20 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |ons read|-file-na|
|00001dc0| 6d 65 2d 69 6e 74 65 72 | 6e 61 6c 20 63 68 6f 69 |me-inter|nal choi|
|00001dd0| 63 65 70 20 22 2e 2e 2f | 22 20 61 6e 79 20 74 20 |cep "../|" any t |
|00001de0| 63 6f 6d 70 6f 6e 65 6e | 74 20 63 6f 6d 70 6c 65 |componen|t comple|
|00001df0| 74 65 72 2d 66 69 6c 65 | 2d 73 6b 69 70 20 63 6f |ter-file|-skip co|
|00001e00| 6d 70 6c 65 74 65 72 2d | 63 61 63 68 65 20 70 72 |mpleter-|cache pr|
|00001e10| 65 64 20 6c 63 73 20 6d | 61 74 63 68 65 73 20 22 |ed lcs m|atches "|
|00001e20| 2f 24 22 20 73 6c 61 73 | 68 20 68 65 6c 70 20 31 |/$" slas|h help 1|
|00001e30| 20 31 32 36 20 63 6f 6d | 70 6c 65 74 65 72 2d 65 | 126 com|pleter-e|
|00001e40| 78 74 65 6e 73 69 6f 6e | 2d 72 65 67 65 78 70 20 |xtension|-regexp |
|00001e50| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 69 67 6e 6f 72 |completi|on-ignor|
|00001e60| 65 64 2d 65 78 74 65 6e | 73 69 6f 6e 73 20 65 78 |ed-exten|sions ex|
|00001e70| 74 65 6e 73 69 6f 6e 73 | 20 63 68 6f 69 63 65 62 |tensions| choiceb|
|00001e80| 20 69 73 65 78 74 20 6e | 6f 65 78 74 20 63 6f 6d | isext n|oext com|
|00001e90| 70 6c 65 74 65 72 2d 64 | 65 6c 65 74 65 72 20 6d |pleter-d|eleter m|
|00001ea0| 61 74 63 68 5d 20 38 20 | 22 5c 0a 52 65 74 75 72 |atch] 8 |"\.Retur|
|00001eb0| 6e 20 28 6d 61 74 63 68 | 20 63 6f 6d 6d 6f 6e 2d |n (match| common-|
|00001ec0| 73 75 62 73 74 72 69 6e | 67 20 6d 61 74 63 68 65 |substrin|g matche|
|00001ed0| 73 20 75 6e 69 71 75 65 | 2d 70 29 20 66 6f 72 20 |s unique|-p) for |
|00001ee0| 53 54 52 49 4e 47 20 75 | 73 69 6e 67 0a 72 65 61 |STRING u|sing.rea|
|00001ef0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 2d 69 6e 74 65 |d-file-n|ame-inte|
|00001f00| 72 6e 61 6c 20 66 6f 72 | 20 63 68 6f 69 63 65 73 |rnal for| choices|
|00001f10| 20 74 68 61 74 20 70 61 | 73 73 20 50 52 45 44 20 | that pa|ss PRED |
|00001f20| 75 73 69 6e 67 20 57 4f | 52 44 53 20 74 6f 0a 64 |using WO|RDS to.d|
|00001f30| 65 6c 69 6d 69 74 20 77 | 6f 72 64 73 2e 20 20 4f |elimit w|ords. O|
|00001f40| 70 74 69 6f 6e 61 6c 20 | 41 4e 59 20 69 73 20 61 |ptional |ANY is a|
|00001f50| 20 64 65 6c 69 6d 69 74 | 65 72 20 74 68 61 74 20 | delimit|er that |
|00001f60| 6d 61 74 63 68 65 73 20 | 61 6e 79 20 6f 66 20 74 |matches |any of t|
|00001f70| 68 65 0a 64 65 6c 69 6d | 69 74 65 72 73 20 69 6e |he.delim|iters in|
|00001f80| 20 57 4f 52 44 2e 20 20 | 49 66 20 6f 70 74 69 6f | WORD. |If optio|
|00001f90| 6e 61 6c 20 4d 4f 44 45 | 20 69 73 20 6e 69 6c 20 |nal MODE| is nil |
|00001fa0| 6f 72 20 27 68 65 6c 70 | 20 74 68 65 6e 20 70 6f |or 'help| then po|
|00001fb0| 73 73 69 62 6c 65 0a 6d | 61 74 63 68 65 73 20 77 |ssible.m|atches w|
|00001fc0| 69 6c 6c 20 61 6c 77 61 | 79 73 20 62 65 20 72 65 |ill alwa|ys be re|
|00001fd0| 74 75 72 6e 65 64 2e 22 | 5d 29 0a 28 66 73 65 74 |turned."|]).(fset|
|00001fe0| 20 27 63 6f 6d 70 6c 65 | 74 65 72 20 23 5b 28 73 | 'comple|ter #[(s|
|00001ff0| 74 72 69 6e 67 20 74 61 | 62 6c 65 20 70 72 65 64 |tring ta|ble pred|
|00002000| 20 77 6f 72 64 73 20 26 | 6f 70 74 69 6f 6e 61 6c | words &|optional|
|00002010| 20 61 6e 79 20 6d 6f 64 | 65 20 66 69 6c 65 2d 70 | any mod|e file-p|
|00002020| 29 20 22 08 3b ab a2 09 | 08 98 ab 9d 5c 6e 0b 3d |) ".;...|....\n.=|
|00002030| ab 98 0c 0d 3d ab 93 0e | 06 ac 8f 0e 07 0e 08 3d |....=...|.......=|
|00002040| ac 85 5c 6e c9 3e ac 83 | 0e 5c 6e 87 cb 10 5c 6e |..\n.>..|.\n...\n|
|00002050| 13 0c 15 0e 07 16 08 0e | 0c ab 96 0e 06 ac 92 5c |........|.......\|
|00002060| 6e cd 3d ab 8d ce 09 0c | 0e 0f 0e 10 0e 07 25 82 |n.=.....|......%.|
|00002070| e9 00 0e 06 ae 83 5c 6e | cd 3d 1e 06 0e 11 1e 12 |......\n|.=......|
|00002080| d3 0e 0f d4 51 1e 15 0e | 06 ad 83 d6 09 21 89 1e |....Q...|.....!..|
|00002090| 17 ad 85 09 d8 0e 17 4f | 89 1e 19 ab 87 09 0e 17 |.......O|........|
|000020a0| da 4f aa 81 09 19 db 0e | 15 09 5c 22 ae 82 09 47 |.O......|..\"...G|
|000020b0| 1e 1c 0e 06 ab a5 db dd | 09 5c 22 ab 9f de 09 df |........|.\".....|
|000020c0| db e0 09 5c 22 4f 21 89 | 1e 21 ab 86 0e 21 e0 50 |...\"O!.|.!...!.P|
|000020d0| 16 21 0e 21 89 89 43 0e | 21 46 29 aa b6 e2 0e 19 |.!.!..C.|!F).....|
|000020e0| 09 d8 0e 1c 4f 50 5c 6e | 0c 23 1e 23 e4 09 0e 0f |....OP\n|.#.#....|
|000020f0| 0e 10 23 1e 25 0e 23 ab | 95 e6 09 e7 0e 25 0e 23 |..#.%.#.|.....%.#|
|00002100| e8 23 0e 0f 0e 10 0e 19 | 0e 07 26 06 aa 85 da 89 |.#......|..&.....|
|00002110| 89 89 46 2a 2e 07 16 5c | 6e 09 10 0e 5c 6e 87 22 |..F*...\|n...\n."|
|00002120| 20 5b 63 6f 6d 70 6c 65 | 74 65 72 2d 73 74 72 69 | [comple|ter-stri|
|00002130| 6e 67 20 73 74 72 69 6e | 67 20 74 61 62 6c 65 20 |ng strin|g table |
|00002140| 63 6f 6d 70 6c 65 74 65 | 72 2d 74 61 62 6c 65 20 |complete|r-table |
|00002150| 70 72 65 64 20 63 6f 6d | 70 6c 65 74 65 72 2d 70 |pred com|pleter-p|
|00002160| 72 65 64 20 66 69 6c 65 | 2d 70 20 6d 6f 64 65 20 |red file|-p mode |
|00002170| 63 6f 6d 70 6c 65 74 65 | 72 2d 6d 6f 64 65 20 28 |complete|r-mode (|
|00002180| 72 65 61 64 2d 66 69 6c | 65 2d 6e 61 6d 65 2d 69 |read-fil|e-name-i|
|00002190| 6e 74 65 72 6e 61 6c 20 | 72 65 61 64 2d 64 69 72 |nternal |read-dir|
|000021a0| 65 63 74 6f 72 79 2d 6e | 61 6d 65 2d 69 6e 74 65 |ectory-n|ame-inte|
|000021b0| 72 6e 61 6c 29 20 63 6f | 6d 70 6c 65 74 65 72 2d |rnal) co|mpleter-|
|000021c0| 72 65 73 75 6c 74 20 22 | 22 20 63 6f 6d 70 6c 65 |result "|" comple|
|000021d0| 74 65 72 2d 63 6f 6d 70 | 6c 65 74 65 2d 66 69 6c |ter-comp|lete-fil|
|000021e0| 65 6e 61 6d 65 73 20 72 | 65 61 64 2d 66 69 6c 65 |enames r|ead-file|
|000021f0| 2d 6e 61 6d 65 2d 69 6e | 74 65 72 6e 61 6c 20 63 |-name-in|ternal c|
|00002200| 6f 6d 70 6c 65 74 65 72 | 2d 66 69 6c 65 20 77 6f |ompleter|-file wo|
|00002210| 72 64 73 20 61 6e 79 20 | 63 6f 6d 70 6c 65 74 69 |rds any |completi|
|00002220| 6f 6e 2d 69 67 6e 6f 72 | 65 2d 63 61 73 65 20 63 |on-ignor|e-case c|
|00002230| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00002240| 22 5b 22 20 22 5d 22 20 | 70 61 74 74 65 72 6e 20 |"[" "]" |pattern |
|00002250| 63 6f 6d 70 6c 65 74 65 | 72 2d 6c 61 73 74 2d 63 |complete|r-last-c|
|00002260| 6f 6d 70 6f 6e 65 6e 74 | 20 63 6f 6d 70 6f 6e 65 |omponent| compone|
|00002270| 6e 74 20 30 20 64 69 72 | 20 6e 69 6c 20 73 74 72 |nt 0 dir| nil str|
|00002280| 69 6e 67 2d 6d 61 74 63 | 68 20 68 61 73 2d 77 6f |ing-matc|h has-wo|
|00002290| 72 64 73 20 22 5e 5c 5c | 24 22 20 67 65 74 65 6e |rds "^\\|$" geten|
|000022a0| 76 20 31 20 22 2f 22 20 | 6d 61 74 63 68 20 61 6c |v 1 "/" |match al|
|000022b0| 6c 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 20 63 68 |l-comple|tions ch|
|000022c0| 6f 69 63 65 73 20 63 6f | 6d 70 6c 65 74 65 72 2d |oices co|mpleter-|
|000022d0| 72 65 67 65 78 70 20 72 | 65 67 65 78 70 20 63 6f |regexp r|egexp co|
|000022e0| 6d 70 6c 65 74 65 72 2d | 6d 61 74 63 68 2d 72 65 |mpleter-|match-re|
|000022f0| 63 6f 72 64 20 63 6f 6d | 70 6c 65 74 65 72 2d 64 |cord com|pleter-d|
|00002300| 65 6c 65 74 65 72 20 74 | 5d 20 38 20 22 5c 0a 52 |eleter t|] 8 "\.R|
|00002310| 65 74 75 72 6e 20 28 6d | 61 74 63 68 20 63 6f 6d |eturn (m|atch com|
|00002320| 6d 6f 6e 2d 73 75 62 73 | 74 72 69 6e 67 20 6d 61 |mon-subs|tring ma|
|00002330| 74 63 68 65 73 20 75 6e | 69 71 75 65 2d 70 29 20 |tches un|ique-p) |
|00002340| 66 6f 72 20 53 54 52 49 | 4e 47 20 69 6e 0a 54 41 |for STRI|NG in.TA|
|00002350| 42 4c 45 20 66 6f 72 20 | 63 68 6f 69 63 65 73 20 |BLE for |choices |
|00002360| 74 68 61 74 20 70 61 73 | 73 20 50 52 45 44 20 75 |that pas|s PRED u|
|00002370| 73 69 6e 67 20 57 4f 52 | 44 53 20 74 6f 20 64 65 |sing WOR|DS to de|
|00002380| 6c 69 6d 69 74 20 77 6f | 72 64 73 2e 20 20 49 66 |limit wo|rds. If|
|00002390| 20 74 68 65 0a 66 6c 61 | 67 20 63 6f 6d 70 6c 65 | the.fla|g comple|
|000023a0| 74 65 72 2d 63 6f 6d 70 | 6c 65 74 65 2d 66 69 6c |ter-comp|lete-fil|
|000023b0| 65 6e 61 6d 65 73 20 69 | 73 20 54 20 61 6e 64 20 |enames i|s T and |
|000023c0| 74 68 65 20 74 61 62 6c | 65 20 69 73 0a 72 65 61 |the tabl|e is.rea|
|000023d0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 2d 69 6e 74 65 |d-file-n|ame-inte|
|000023e0| 72 6e 61 6c 2c 20 74 68 | 65 6e 20 66 69 6c 65 6e |rnal, th|en filen|
|000023f0| 61 6d 65 20 63 6f 6d 70 | 6f 6e 65 6e 74 73 20 77 |ame comp|onents w|
|00002400| 69 6c 6c 20 62 65 20 69 | 6e 64 69 76 69 64 75 61 |ill be i|ndividua|
|00002410| 6c 6c 79 0a 65 78 70 61 | 6e 64 65 64 2e 20 20 4f |lly.expa|nded. O|
|00002420| 70 74 69 6f 6e 61 6c 20 | 41 4e 59 20 69 73 20 61 |ptional |ANY is a|
|00002430| 20 64 65 6c 69 6d 69 74 | 65 72 20 74 68 61 74 20 | delimit|er that |
|00002440| 63 61 6e 20 6d 61 74 63 | 68 20 61 6e 79 20 64 65 |can matc|h any de|
|00002450| 6c 69 6d 69 74 65 72 20 | 69 6e 0a 57 4f 52 44 53 |limiter |in.WORDS|
|00002460| 2e 20 20 4f 70 74 69 6f | 6e 61 6c 20 4d 4f 44 45 |. Optio|nal MODE|
|00002470| 20 69 73 20 6e 69 6c 20 | 66 6f 72 20 63 6f 6d 70 | is nil |for comp|
|00002480| 6c 65 74 65 2c 20 27 68 | 65 6c 70 20 66 6f 72 20 |lete, 'h|elp for |
|00002490| 68 65 6c 70 20 61 6e 64 | 20 27 65 78 69 74 0a 66 |help and| 'exit.f|
|000024a0| 6f 72 20 65 78 69 74 2e | 22 5d 29 0a 28 66 73 65 |or exit.|"]).(fse|
|000024b0| 74 20 27 63 6f 6d 70 6c | 65 74 65 72 2d 64 69 73 |t 'compl|eter-dis|
|000024c0| 70 6c 61 79 2d 63 68 6f | 69 63 65 73 20 23 5b 28 |play-cho|ices #[(|
|000024d0| 63 68 6f 69 63 65 73 20 | 26 6f 70 74 69 6f 6e 61 |choices |&optiona|
|000024e0| 6c 20 6d 61 74 63 68 20 | 6d 65 73 73 61 67 65 20 |l match |message |
|000024f0| 65 6e 64 20 64 69 73 70 | 6c 61 79 29 20 22 08 ab |end disp|lay) "..|
|00002500| cd c1 90 08 41 ab ac c2 | c3 0c ab a0 08 c5 1e 06 |....A...|........|
|00002510| 89 1e 07 ab 92 0c 0e 07 | 40 21 0e 06 42 16 06 0e |........|@!..B...|
|00002520| 07 41 89 16 07 ac 6e 0e | 06 2a aa 83 c8 08 21 c9 |.A....n.|.*....!.|
|00002530| 5c 22 21 88 0e 5c 6e ad | 95 8a c1 71 88 65 62 88 |\"!..\n.|...q.eb.|
|00002540| cb 0e 5c 6e 08 41 ab 83 | cc aa 81 cd b1 03 29 91 |..\n.A..|......).|
|00002550| 87 ce 20 88 cf 0e 10 ae | 81 d1 0e 12 5c 22 87 22 |.. .....|....\"."|
|00002560| 20 5b 63 68 6f 69 63 65 | 73 20 22 2a 43 6f 6d 70 | [choice|s "*Comp|
|00002570| 6c 65 74 69 6f 6e 73 2a | 22 20 64 69 73 70 6c 61 |letions*|" displa|
|00002580| 79 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 6c 69 73 |y-comple|tion-lis|
|00002590| 74 20 73 6f 72 74 20 64 | 69 73 70 6c 61 79 20 6e |t sort d|isplay n|
|000025a0| 69 6c 20 6e 65 77 20 6f | 6c 64 20 63 6f 70 79 2d |il new o|ld copy-|
|000025b0| 73 65 71 75 65 6e 63 65 | 20 23 5b 28 78 20 79 29 |sequence| #[(x y)|
|000025c0| 20 22 08 a2 ae 81 08 09 | a2 ae 81 09 99 87 22 20 | "......|......" |
|000025d0| 5b 78 20 79 5d 20 32 5d | 20 6d 61 74 63 68 20 22 |[x y] 2]| match "|
|000025e0| 47 75 65 73 73 20 3d 20 | 22 20 22 2c 20 22 20 22 |Guess = |" ", " "|
|000025f0| 22 20 62 65 65 70 20 63 | 6f 6d 70 6c 65 74 65 72 |" beep c|ompleter|
|00002600| 2d 6d 65 73 73 61 67 65 | 20 6d 65 73 73 61 67 65 |-message| message|
|00002610| 20 22 20 28 4e 6f 20 63 | 6f 6d 70 6c 65 74 69 6f | " (No c|ompletio|
|00002620| 6e 73 29 22 20 65 6e 64 | 5d 20 36 20 22 5c 0a 44 |ns)" end|] 6 "\.D|
|00002630| 69 73 70 6c 61 79 20 74 | 68 65 20 6c 69 73 74 20 |isplay t|he list |
|00002640| 6f 66 20 70 6f 73 73 69 | 62 6c 65 20 43 48 4f 49 |of possi|ble CHOI|
|00002650| 43 45 53 20 77 69 74 68 | 20 6f 70 74 69 6f 6e 61 |CES with| optiona|
|00002660| 6c 20 4d 41 54 43 48 2c | 20 4d 45 53 53 41 47 45 |l MATCH,| MESSAGE|
|00002670| 2c 0a 45 4e 44 20 61 6e | 64 20 44 49 53 50 4c 41 |,.END an|d DISPLA|
|00002680| 59 2e 20 20 49 66 20 4d | 41 54 43 48 20 69 73 20 |Y. If M|ATCH is |
|00002690| 6e 6f 6e 2d 6e 69 6c 2c | 20 69 74 20 77 69 6c 6c |non-nil,| it will|
|000026a0| 20 62 65 20 66 6c 61 67 | 67 65 64 20 61 73 20 74 | be flag|ged as t|
|000026b0| 68 65 20 62 65 73 74 0a | 67 75 65 73 73 2e 20 20 |he best.|guess. |
|000026c0| 49 66 20 74 68 65 72 65 | 20 61 72 65 20 6e 6f 20 |If there| are no |
|000026d0| 63 68 6f 69 63 65 73 2c | 20 64 69 73 70 6c 61 79 |choices,| display|
|000026e0| 20 4d 45 53 53 41 47 45 | 2e 20 20 45 4e 44 20 69 | MESSAGE|. END i|
|000026f0| 73 20 77 68 65 72 65 20 | 74 6f 20 70 75 74 0a 74 |s where |to put.t|
|00002700| 65 6d 70 6f 72 61 72 79 | 20 6d 65 73 73 61 67 65 |emporary| message|
|00002710| 73 2e 20 20 49 66 20 44 | 49 53 50 4c 41 59 20 69 |s. If D|ISPLAY i|
|00002720| 73 20 70 72 65 73 65 6e | 74 20 74 68 65 6e 20 69 |s presen|t then i|
|00002730| 74 20 77 69 6c 6c 20 62 | 65 20 63 61 6c 6c 65 64 |t will b|e called|
|00002740| 20 6f 6e 0a 65 61 63 68 | 20 70 6f 73 73 69 62 6c | on.each| possibl|
|00002750| 65 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 20 61 6e 64 |e comple|tion and|
|00002760| 20 73 68 6f 75 6c 64 20 | 72 65 74 75 72 6e 20 61 | should |return a|
|00002770| 20 73 74 72 69 6e 67 2e | 22 5d 29 0a 28 66 73 65 | string.|"]).(fse|
|00002780| 74 20 27 63 6f 6d 70 6c | 65 74 65 72 2d 67 6f 74 |t 'compl|eter-got|
|00002790| 6f 20 23 5b 28 6d 61 74 | 63 68 20 6c 63 73 20 63 |o #[(mat|ch lcs c|
|000027a0| 68 6f 69 63 65 73 20 75 | 6e 69 71 75 65 20 64 65 |hoices u|nique de|
|000027b0| 6c 69 6d 69 74 65 72 73 | 20 77 6f 72 64 73 20 26 |limiters| words &|
|000027c0| 6f 70 74 69 6f 6e 61 6c | 20 6d 6f 64 65 20 64 69 |optional| mode di|
|000027d0| 73 70 6c 61 79 29 20 22 | c0 11 c2 0b 21 89 1c 40 |splay) "|....!..@|
|000027e0| 1d 0c 41 1e 06 0d 0e 06 | 7b 1e 07 c8 c9 0e 07 5c |..A.....|{......\|
|000027f0| 22 1e 5c 6e 0e 0b cc 3d | 1e 0d ce 1e 0f 0d 60 7b |".\n...=|......`{|
|00002800| 0e 10 98 3f 1e 11 0e 12 | ab b7 0e 0d ab 92 0e 06 |...?....|........|
|00002810| 62 88 d3 0e 14 0e 15 c0 | 0e 06 0e 16 25 82 2e 01 |b.......|....%...|
|00002820| 0e 07 0e 15 98 ab 92 0e | 5c 6e 3f 85 2e 01 0e 06 |........|\n?.....|
|00002830| 62 88 c1 d7 0e 06 5c 22 | 82 2e 01 d8 0e 15 0b 5c |b.....\"|.......\|
|00002840| 22 82 2e 01 0e 10 ab fb | d9 0e 1a 0e 5c 6e ad 81 |".......|....\n..|
|00002850| db dc 52 1e 1d de 0e 1d | 0e 10 5c 22 1e 1a c0 1e |..R.....|..\"....|
|00002860| 1f 0d 62 88 0e 0d ac 96 | 0e 10 63 88 0e 07 0b 70 |..b.....|..c....p|
|00002870| 0d 46 16 20 60 15 0e 06 | 0e 10 47 5c 5c 16 06 e1 |.F. `...|..G\\...|
|00002880| 0e 1d 0e 06 e2 0e 1a 24 | ab ab 0e 0d ac a4 0e 15 |.......$|........|
|00002890| ab a0 c8 e3 0e 10 21 0e | 15 5c 22 88 0e 15 e4 95 |......!.|.\".....|
|000028a0| e4 95 54 4f 1e 25 c8 0e | 1d 0e 25 5c 22 ab 84 0e |..TO.%..|..%\"...|
|000028b0| 25 63 88 29 e6 75 88 0e | 0d ac 8c 0e 06 60 0d 5a |%c.).u..|.....`.Z|
|000028c0| 5a 16 06 0d 60 7c 88 2b | 0e 14 ab 96 0e 0d ac 85 |Z...`|.+|........|
|000028d0| 0e 11 3f ad bb d3 0e 14 | 0e 15 c0 0e 06 0e 16 25 |..?.....|.......%|
|000028e0| aa ae 0e 5c 6e ab 97 60 | 0e 06 55 ac 83 e7 75 88 |...\n..`|..U...u.|
|000028f0| 8a e1 db 0e 06 ce 23 29 | ac 84 0e 06 62 88 0e 0f |......#)|....b...|
|00002900| ad 8f e8 20 88 c1 0e 0d | ab 83 e9 aa 81 ea 0e 06 |... ....|........|
|00002910| 5c 22 2e 08 87 22 20 5b | 6e 69 6c 20 63 6f 6d 70 |\"..." [|nil comp|
|00002920| 6c 65 74 65 72 2d 6d 65 | 73 73 61 67 65 20 63 6f |leter-me|ssage co|
|00002930| 6d 70 6c 65 74 65 72 2d | 72 65 67 69 6f 6e 20 64 |mpleter-|region d|
|00002940| 65 6c 69 6d 69 74 65 72 | 73 20 72 65 67 69 6f 6e |elimiter|s region|
|00002950| 20 73 74 61 72 74 20 65 | 6e 64 20 73 74 72 69 6e | start e|nd strin|
|00002960| 67 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |g string|-match "|
|00002970| 5b 5e 20 5d 2a 5c 5c 28 | 7e 5c 5c 7c 2f 5c 5c 7c |[^ ]*\\(|~\\|/\\||
|00002980| 24 5c 5c 29 22 20 66 69 | 6c 65 2d 70 20 6d 6f 64 |$\\)" fi|le-p mod|
|00002990| 65 20 68 65 6c 70 20 6e | 6f 2d 69 6e 73 65 72 74 |e help n|o-insert|
|000029a0| 20 74 20 6d 65 73 73 61 | 67 65 20 6c 63 73 20 6e | t messa|ge lcs n|
|000029b0| 65 77 20 75 6e 69 71 75 | 65 20 63 6f 6d 70 6c 65 |ew uniqu|e comple|
|000029c0| 74 65 72 2d 64 69 73 70 | 6c 61 79 2d 63 68 6f 69 |ter-disp|lay-choi|
|000029d0| 63 65 73 20 63 68 6f 69 | 63 65 73 20 6d 61 74 63 |ces choi|ces matc|
|000029e0| 68 20 64 69 73 70 6c 61 | 79 20 22 20 28 53 6f 6c |h displa|y " (Sol|
|000029f0| 65 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 29 22 20 63 |e comple|tion)" c|
|00002a00| 6f 6d 70 6c 65 74 65 72 | 2d 69 6e 73 65 72 74 20 |ompleter|-insert |
|00002a10| 22 5b 22 20 77 6f 72 64 | 73 20 22 2f 22 20 22 5d |"[" word|s "/" "]|
|00002a20| 22 20 72 65 67 65 78 70 | 20 63 6f 6d 70 6c 65 74 |" regexp| complet|
|00002a30| 65 72 2d 77 6f 72 64 73 | 20 70 6f 69 6e 74 20 63 |er-words| point c|
|00002a40| 6f 6d 70 6c 65 74 65 72 | 2d 6c 61 73 74 2d 70 61 |ompleter|-last-pa|
|00002a50| 74 74 65 72 6e 20 72 65 | 2d 73 65 61 72 63 68 2d |ttern re|-search-|
|00002a60| 66 6f 72 77 61 72 64 20 | 6d 6f 76 65 20 72 65 67 |forward |move reg|
|00002a70| 65 78 70 2d 71 75 6f 74 | 65 20 30 20 64 65 6c 69 |exp-quot|e 0 deli|
|00002a80| 6d 69 74 65 72 20 2d 31 | 20 31 20 62 65 65 70 20 |miter -1| 1 beep |
|00002a90| 22 20 28 4e 6f 20 63 6f | 6d 70 6c 65 74 69 6f 6e |" (No co|mpletion|
|00002aa0| 73 29 22 20 22 20 28 4e | 6f 20 6d 61 74 63 68 29 |s)" " (N|o match)|
|00002ab0| 22 5d 20 37 20 22 5c 0a | 4d 41 54 43 48 20 69 73 |"] 7 "\.|MATCH is|
|00002ac0| 20 74 68 65 20 62 65 73 | 74 20 6d 61 74 63 68 2c | the bes|t match,|
|00002ad0| 20 4c 43 53 20 69 73 20 | 74 68 65 20 6c 6f 6e 67 | LCS is |the long|
|00002ae0| 65 73 74 20 63 6f 6d 6d | 6f 6e 20 73 75 62 73 74 |est comm|on subst|
|00002af0| 72 69 6e 67 20 6f 66 20 | 61 6c 6c 0a 6f 66 20 74 |ring of |all.of t|
|00002b00| 68 65 20 6d 61 74 63 68 | 65 73 2e 20 20 43 48 4f |he match|es. CHO|
|00002b10| 49 43 45 53 20 69 73 20 | 61 20 6c 69 73 74 20 6f |ICES is |a list o|
|00002b20| 66 20 74 68 65 20 70 6f | 73 73 69 62 69 6c 69 74 |f the po|ssibilit|
|00002b30| 69 65 73 2c 20 55 4e 49 | 51 55 45 0a 69 6e 64 69 |ies, UNI|QUE.indi|
|00002b40| 63 61 74 65 73 20 69 66 | 20 4d 41 54 43 48 20 69 |cates if| MATCH i|
|00002b50| 73 20 75 6e 69 71 75 65 | 2e 20 20 44 45 4c 49 4d |s unique|. DELIM|
|00002b60| 49 54 45 52 53 20 61 72 | 65 20 70 6f 73 73 69 62 |ITERS ar|e possib|
|00002b70| 6c 65 20 62 6f 75 6e 64 | 69 6e 67 0a 63 68 61 72 |le bound|ing.char|
|00002b80| 61 63 74 65 72 73 20 66 | 6f 72 20 74 68 65 20 63 |acters f|or the c|
|00002b90| 6f 6d 70 6c 65 74 69 6f | 6e 20 72 65 67 69 6f 6e |ompletio|n region|
|00002ba0| 2e 20 20 57 4f 52 44 53 | 20 61 72 65 20 74 68 65 |. WORDS| are the|
|00002bb0| 20 63 68 61 72 61 63 74 | 65 72 73 20 74 68 61 74 | charact|ers that|
|00002bc0| 0a 64 65 6c 69 6d 69 74 | 20 74 68 65 20 77 6f 72 |.delimit| the wor|
|00002bd0| 64 73 20 66 6f 72 20 70 | 61 72 74 69 61 6c 20 6d |ds for p|artial m|
|00002be0| 61 74 63 68 65 73 2e 20 | 20 52 65 70 6c 61 63 65 |atches. | Replace|
|00002bf0| 20 74 68 65 20 72 65 67 | 69 6f 6e 20 62 6f 75 6e | the reg|ion boun|
|00002c00| 64 65 64 20 62 79 0a 64 | 65 6c 69 6d 69 74 65 72 |ded by.d|elimiter|
|00002c10| 73 20 77 69 74 68 20 74 | 68 65 20 6d 61 74 63 68 |s with t|he match|
|00002c20| 20 69 66 20 75 6e 69 71 | 75 65 20 61 6e 64 20 74 | if uniq|ue and t|
|00002c30| 68 65 20 6c 63 73 20 6f | 74 68 65 72 77 69 73 65 |he lcs o|therwise|
|00002c40| 20 75 6e 6c 65 73 73 0a | 6f 70 74 69 6f 6e 61 6c | unless.|optional|
|00002c50| 20 4d 4f 44 45 20 69 73 | 20 27 68 65 6c 70 2e 20 | MODE is| 'help. |
|00002c60| 20 54 68 65 6e 20 67 6f | 20 74 6f 20 74 68 65 20 | Then go| to the |
|00002c70| 70 61 72 74 20 6f 66 20 | 74 68 65 20 73 74 72 69 |part of |the stri|
|00002c80| 6e 67 20 74 68 61 74 0a | 64 69 73 61 6d 62 69 67 |ng that.|disambig|
|00002c90| 75 61 74 65 73 20 63 68 | 6f 69 63 65 73 20 75 73 |uates ch|oices us|
|00002ca0| 69 6e 67 20 57 4f 52 44 | 53 20 74 6f 20 73 65 70 |ing WORD|S to sep|
|00002cb0| 61 72 61 74 65 20 77 6f | 72 64 73 20 61 6e 64 20 |arate wo|rds and |
|00002cc0| 64 69 73 70 6c 61 79 20 | 74 68 65 0a 70 6f 73 73 |display |the.poss|
|00002cd0| 69 62 69 6c 69 74 69 65 | 73 20 69 66 20 74 68 65 |ibilitie|s if the|
|00002ce0| 20 73 74 72 69 6e 67 20 | 77 61 73 20 6e 6f 74 20 | string |was not |
|00002cf0| 65 78 74 65 6e 64 65 64 | 2e 20 20 49 66 20 6f 70 |extended|. If op|
|00002d00| 74 69 6f 6e 61 6c 20 44 | 49 53 50 4c 41 59 20 69 |tional D|ISPLAY i|
|00002d10| 73 0a 70 72 65 73 65 6e | 74 20 74 68 65 6e 20 69 |s.presen|t then i|
|00002d20| 74 20 77 69 6c 6c 20 62 | 65 20 63 61 6c 6c 65 64 |t will b|e called|
|00002d30| 20 6f 6e 20 65 61 63 68 | 20 70 6f 73 73 69 62 6c | on each| possibl|
|00002d40| 65 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 20 61 6e 64 |e comple|tion and|
|00002d50| 20 73 68 6f 75 6c 64 0a | 72 65 74 75 72 6e 20 61 | should.|return a|
|00002d60| 20 73 74 72 69 6e 67 2e | 22 5d 29 0a 28 66 73 65 | string.|"]).(fse|
|00002d70| 74 20 27 63 6f 6d 70 6c | 65 74 65 72 2d 63 6f 6d |t 'compl|eter-com|
|00002d80| 70 6c 65 74 65 2d 67 6f | 74 6f 20 23 5b 28 64 65 |plete-go|to #[(de|
|00002d90| 6c 69 6d 69 74 65 72 73 | 20 77 6f 72 64 73 20 74 |limiters| words t|
|00002da0| 61 62 6c 65 20 70 72 65 | 64 20 26 6f 70 74 69 6f |able pre|d &optio|
|00002db0| 6e 61 6c 20 6e 6f 2d 69 | 6e 73 65 72 74 20 64 69 |nal no-i|nsert di|
|00002dc0| 73 70 6c 61 79 29 20 22 | c0 09 21 1a c3 c4 c5 c6 |splay) "|..!.....|
|00002dd0| 5c 6e 40 5c 6e 41 7b 0e | 07 0e 08 0e 09 0e 5c 6e |\n@\nA{.|......\n|
|00002de0| 0e 0b 26 06 09 0e 09 0e | 0b 0e 0c 46 5c 22 5c 22 |..&.....|...F\"\"|
|00002df0| 29 87 22 20 5b 63 6f 6d | 70 6c 65 74 65 72 2d 72 |)." [com|pleter-r|
|00002e00| 65 67 69 6f 6e 20 64 65 | 6c 69 6d 69 74 65 72 73 |egion de|limiters|
|00002e10| 20 72 65 67 69 6f 6e 20 | 61 70 70 6c 79 20 63 6f | region |apply co|
|00002e20| 6d 70 6c 65 74 65 72 2d | 67 6f 74 6f 20 61 70 70 |mpleter-|goto app|
|00002e30| 65 6e 64 20 63 6f 6d 70 | 6c 65 74 65 72 20 74 61 |end comp|leter ta|
|00002e40| 62 6c 65 20 70 72 65 64 | 20 77 6f 72 64 73 20 63 |ble pred| words c|
|00002e50| 6f 6d 70 6c 65 74 65 72 | 2d 61 6e 79 2d 64 65 6c |ompleter|-any-del|
|00002e60| 69 6d 69 74 65 72 20 6e | 6f 2d 69 6e 73 65 72 74 |imiter n|o-insert|
|00002e70| 20 64 69 73 70 6c 61 79 | 5d 20 31 30 20 22 5c 0a | display|] 10 "\.|
|00002e80| 43 6f 6d 70 6c 65 74 65 | 20 74 68 65 20 73 74 72 |Complete| the str|
|00002e90| 69 6e 67 20 62 6f 75 6e | 64 20 62 79 20 44 45 4c |ing boun|d by DEL|
|00002ea0| 49 4d 49 54 45 52 53 20 | 75 73 69 6e 67 20 57 4f |IMITERS |using WO|
|00002eb0| 52 44 53 20 74 6f 20 62 | 6f 75 6e 64 20 77 6f 72 |RDS to b|ound wor|
|00002ec0| 64 73 0a 66 6f 72 20 70 | 61 72 74 69 61 6c 20 6d |ds.for p|artial m|
|00002ed0| 61 74 63 68 65 73 20 69 | 6e 20 54 41 42 4c 45 20 |atches i|n TABLE |
|00002ee0| 77 69 74 68 20 50 52 45 | 44 20 61 6e 64 20 74 68 |with PRE|D and th|
|00002ef0| 65 6e 20 69 6e 73 65 72 | 74 20 74 68 65 20 6c 6f |en inser|t the lo|
|00002f00| 6e 67 65 73 74 0a 63 6f | 6d 6d 6f 6e 20 73 75 62 |ngest.co|mmon sub|
|00002f10| 73 74 72 69 6e 67 20 75 | 6e 6c 65 73 73 20 6f 70 |string u|nless op|
|00002f20| 74 69 6f 6e 61 6c 20 4e | 4f 2d 49 4e 53 45 52 54 |tional N|O-INSERT|
|00002f30| 20 61 6e 64 20 67 6f 20 | 74 6f 20 74 68 65 20 70 | and go |to the p|
|00002f40| 6f 69 6e 74 20 6f 66 0a | 61 6d 62 69 67 75 69 74 |oint of.|ambiguit|
|00002f50| 79 2e 20 20 49 66 20 6f | 70 74 69 6f 6e 61 6c 20 |y. If o|ptional |
|00002f60| 44 49 53 50 4c 41 59 2c | 20 69 74 20 77 69 6c 6c |DISPLAY,| it will|
|00002f70| 20 62 65 20 63 61 6c 6c | 65 64 20 6f 6e 20 65 61 | be call|ed on ea|
|00002f80| 63 68 20 6d 61 74 63 68 | 20 77 68 65 6e 0a 70 6f |ch match| when.po|
|00002f90| 73 73 69 62 6c 65 20 63 | 6f 6d 70 6c 65 74 69 6f |ssible c|ompletio|
|00002fa0| 6e 73 20 61 72 65 20 73 | 68 6f 77 6e 20 61 6e 64 |ns are s|hown and|
|00002fb0| 20 73 68 6f 75 6c 64 20 | 72 65 74 75 72 6e 20 61 | should |return a|
|00002fc0| 20 73 74 72 69 6e 67 2e | 22 5d 29 0a 28 66 73 65 | string.|"]).(fse|
|00002fd0| 74 20 27 63 6f 6d 70 6c | 65 74 65 72 2d 69 6e 73 |t 'compl|eter-ins|
|00002fe0| 65 72 74 20 23 5b 28 6d | 61 74 63 68 20 64 65 6c |ert #[(m|atch del|
|00002ff0| 69 6d 69 74 65 72 73 20 | 26 6f 70 74 69 6f 6e 61 |imiters |&optiona|
|00003000| 6c 20 62 75 66 66 65 72 | 20 75 6e 64 6f 29 20 22 |l buffer| undo) "|
|00003010| c0 09 21 89 1a 40 1b 5c | 6e 41 1c 0d ab 90 0b 0d |..!..@.\|nA......|
|00003020| 55 ab 86 70 0e 06 3d ac | 85 c7 c8 21 aa 93 0b 0c |U..p..=.|...!....|
|00003030| 7b 09 70 0b 46 16 09 0b | 0c 7c 88 0b 62 88 0e 5c |{.p.F...|.|..b..\|
|00003040| 6e 63 2b 87 22 20 5b 63 | 6f 6d 70 6c 65 74 65 72 |nc+." [c|ompleter|
|00003050| 2d 72 65 67 69 6f 6e 20 | 64 65 6c 69 6d 69 74 65 |-region |delimite|
|00003060| 72 73 20 72 65 67 69 6f | 6e 20 73 74 61 72 74 20 |rs regio|n start |
|00003070| 65 6e 64 20 75 6e 64 6f | 20 62 75 66 66 65 72 20 |end undo| buffer |
|00003080| 65 72 72 6f 72 20 22 4e | 6f 20 70 72 65 76 69 6f |error "N|o previo|
|00003090| 75 73 20 70 61 74 74 65 | 72 6e 22 20 63 6f 6d 70 |us patte|rn" comp|
|000030a0| 6c 65 74 65 72 2d 6c 61 | 73 74 2d 70 61 74 74 65 |leter-la|st-patte|
|000030b0| 72 6e 20 6d 61 74 63 68 | 5d 20 35 20 22 5c 0a 52 |rn match|] 5 "\.R|
|000030c0| 65 70 6c 61 63 65 20 74 | 68 65 20 72 65 67 69 6f |eplace t|he regio|
|000030d0| 6e 20 62 6f 75 6e 64 65 | 64 20 77 69 74 68 20 63 |n bounde|d with c|
|000030e0| 68 61 72 61 63 74 65 72 | 73 20 69 6e 20 44 45 4c |haracter|s in DEL|
|000030f0| 49 4d 49 54 45 52 53 20 | 62 79 20 4d 41 54 43 48 |IMITERS |by MATCH|
|00003100| 0a 61 6e 64 20 73 61 76 | 65 20 69 74 20 73 6f 20 |.and sav|e it so |
|00003110| 74 68 61 74 20 69 74 20 | 63 61 6e 20 62 65 20 72 |that it |can be r|
|00003120| 65 73 74 6f 72 65 64 20 | 62 79 20 63 6f 6d 70 6c |estored |by compl|
|00003130| 65 74 65 72 2d 75 6e 64 | 6f 2e 22 5d 29 0a 28 66 |eter-und|o."]).(f|
|00003140| 73 65 74 20 27 63 6f 6d | 70 6c 65 74 65 72 2d 75 |set 'com|pleter-u|
|00003150| 6e 64 6f 20 23 5b 6e 69 | 6c 20 22 08 ab 85 c1 c2 |ndo #[ni|l ".....|
|00003160| 08 5c 22 87 c3 c4 21 87 | 22 20 5b 63 6f 6d 70 6c |.\"...!.|" [compl|
|00003170| 65 74 65 72 2d 6c 61 73 | 74 2d 70 61 74 74 65 72 |eter-las|t-patter|
|00003180| 6e 20 61 70 70 6c 79 20 | 63 6f 6d 70 6c 65 74 65 |n apply |complete|
|00003190| 72 2d 69 6e 73 65 72 74 | 20 65 72 72 6f 72 20 22 |r-insert| error "|
|000031a0| 4e 6f 20 70 72 65 76 69 | 6f 75 73 20 70 61 74 74 |No previ|ous patt|
|000031b0| 65 72 6e 22 5d 20 33 20 | 22 5c 0a 53 77 61 70 20 |ern"] 3 |"\.Swap |
|000031c0| 74 68 65 20 6c 61 73 74 | 20 65 78 70 61 6e 73 69 |the last| expansi|
|000031d0| 6f 6e 20 61 6e 64 20 74 | 68 65 20 6c 61 73 74 20 |on and t|he last |
|000031e0| 6d 61 74 63 68 20 70 61 | 74 74 65 72 6e 2e 22 20 |match pa|ttern." |
|000031f0| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 63 6f 6d |nil]).(f|set 'com|
|00003200| 70 6c 65 74 65 72 2d 6d | 69 6e 69 62 75 66 2d 73 |pleter-m|inibuf-s|
|00003210| 74 72 69 6e 67 20 23 5b | 6e 69 6c 20 22 8a 64 62 |tring #[|nil ".db|
|00003220| 88 08 c1 3d ab 8c c2 c3 | c4 c5 23 ab 85 65 60 54 |...=....|..#..e`T|
|00003230| 7c 88 65 64 7b 29 87 22 | 20 5b 6d 69 6e 69 62 75 ||.ed{)."| [minibu|
|00003240| 66 66 65 72 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |ffer-com|pletion-|
|00003250| 74 61 62 6c 65 20 72 65 | 61 64 2d 66 69 6c 65 2d |table re|ad-file-|
|00003260| 6e 61 6d 65 2d 69 6e 74 | 65 72 6e 61 6c 20 72 65 |name-int|ernal re|
|00003270| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00003280| 20 22 2f 2f 5c 5c 7c 2f | 7e 5c 5c 7c 2e 5c 5c 24 | "//\\|/|~\\|.\\$|
|00003290| 22 20 6e 69 6c 20 74 5d | 20 34 20 22 5c 0a 52 65 |" nil t]| 4 "\.Re|
|000032a0| 6d 6f 76 65 20 64 65 61 | 64 20 66 69 6c 65 6e 61 |move dea|d filena|
|000032b0| 6d 65 20 73 70 65 63 73 | 20 66 72 6f 6d 20 74 68 |me specs| from th|
|000032c0| 65 20 6d 69 6e 69 62 75 | 66 66 65 72 20 61 73 20 |e minibu|ffer as |
|000032d0| 64 65 6c 69 6d 69 74 65 | 64 20 62 79 20 2f 2f 0a |delimite|d by //.|
|000032e0| 6f 72 20 7e 20 6f 72 20 | 24 20 61 6e 64 20 72 65 |or ~ or |$ and re|
|000032f0| 74 75 72 6e 20 74 68 65 | 20 72 65 73 75 6c 74 69 |turn the| resulti|
|00003300| 6e 67 20 73 74 72 69 6e | 67 2e 22 5d 29 0a 28 66 |ng strin|g."]).(f|
|00003310| 73 65 74 20 27 63 6f 6d | 70 6c 65 74 65 72 2d 6d |set 'com|pleter-m|
|00003320| 69 6e 69 62 75 66 2d 65 | 78 69 74 20 23 5b 6e 69 |inibuf-e|xit #[ni|
|00003330| 6c 20 22 c0 11 c2 20 87 | 22 20 5b 6e 69 6c 20 63 |l "... .|" [nil c|
|00003340| 6f 6d 70 6c 65 74 65 72 | 2d 6c 61 73 74 2d 70 61 |ompleter|-last-pa|
|00003350| 74 74 65 72 6e 20 65 78 | 69 74 2d 6d 69 6e 69 62 |ttern ex|it-minib|
|00003360| 75 66 66 65 72 5d 20 31 | 20 22 5c 0a 45 78 69 74 |uffer] 1| "\.Exit|
|00003370| 20 74 68 65 20 6d 69 6e | 69 62 75 66 66 65 72 20 | the min|ibuffer |
|00003380| 61 6e 64 20 63 6c 65 61 | 72 20 63 6f 6d 70 6c 65 |and clea|r comple|
|00003390| 74 65 72 2d 6c 61 73 74 | 2d 70 61 74 74 65 72 6e |ter-last|-pattern|
|000033a0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|000033b0| 63 6f 6d 70 6c 65 74 65 | 72 2d 6e 65 77 2d 63 6d |complete|r-new-cm|
|000033c0| 64 20 23 5b 28 63 6d 64 | 29 20 22 08 ac 94 c1 20 |d #[(cmd|) ".... |
|000033d0| 1a c3 c4 0d c6 51 5c 6e | 5c 22 3f ae 84 c7 c8 c9 |.....Q\n|\"?.....|
|000033e0| 8f 29 ab 86 0e 5c 6e 20 | 88 c7 87 cb 87 22 20 5b |.)...\n |....." [|
|000033f0| 63 6f 6d 70 6c 65 74 65 | 72 2d 64 69 73 61 62 6c |complete|r-disabl|
|00003400| 65 20 63 6f 6d 70 6c 65 | 74 65 72 2d 6d 69 6e 69 |e comple|ter-mini|
|00003410| 62 75 66 2d 73 74 72 69 | 6e 67 20 73 74 72 69 6e |buf-stri|ng strin|
|00003420| 67 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |g string|-match "|
|00003430| 5b 22 20 63 6f 6d 70 6c | 65 74 65 72 2d 77 6f 72 |[" compl|eter-wor|
|00003440| 64 73 20 22 2f 7e 5d 22 | 20 6e 69 6c 20 28 62 79 |ds "/~]"| nil (by|
|00003450| 74 65 2d 63 6f 64 65 20 | 22 c0 09 5c 6e 0b 23 1c |te-code |"..\n.#.|
|00003460| 5c 6e c5 3d ab 8e 0c ad | 8c 09 0c 98 3f ae 86 c6 |\n.=....|....?...|
|00003470| 0c 21 aa 81 0c 29 87 22 | 20 5b 74 72 79 2d 63 6f |.!...)."| [try-co|
|00003480| 6d 70 6c 65 74 69 6f 6e | 20 73 74 72 69 6e 67 20 |mpletion| string |
|00003490| 6d 69 6e 69 62 75 66 66 | 65 72 2d 63 6f 6d 70 6c |minibuff|er-compl|
|000034a0| 65 74 69 6f 6e 2d 74 61 | 62 6c 65 20 6d 69 6e 69 |etion-ta|ble mini|
|000034b0| 62 75 66 66 65 72 2d 63 | 6f 6d 70 6c 65 74 69 6f |buffer-c|ompletio|
|000034c0| 6e 2d 70 72 65 64 69 63 | 61 74 65 20 63 6f 6d 70 |n-predic|ate comp|
|000034d0| 6c 65 74 69 6f 6e 20 72 | 65 61 64 2d 66 69 6c 65 |letion r|ead-file|
|000034e0| 2d 6e 61 6d 65 2d 69 6e | 74 65 72 6e 61 6c 20 66 |-name-in|ternal f|
|000034f0| 69 6c 65 2d 65 78 69 73 | 74 73 2d 70 5d 20 34 29 |ile-exis|ts-p] 4)|
|00003500| 20 28 28 65 72 72 6f 72 | 29 29 20 63 6d 64 20 74 | ((error|)) cmd t|
|00003510| 5d 20 34 20 22 5c 0a 52 | 65 74 75 72 6e 20 74 20 |] 4 "\.R|eturn t |
|00003520| 69 66 20 77 65 20 63 61 | 6e 27 74 20 65 78 65 63 |if we ca|n't exec|
|00003530| 75 74 65 20 74 68 65 20 | 6f 6c 64 20 6d 69 6e 69 |ute the |old mini|
|00003540| 62 75 66 66 65 72 20 76 | 65 72 73 69 6f 6e 20 6f |buffer v|ersion o|
|00003550| 66 20 43 4d 44 2e 22 5d | 29 0a 28 66 73 65 74 20 |f CMD."]|).(fset |
|00003560| 27 63 6f 6d 70 6c 65 74 | 65 72 2d 6d 69 6e 69 62 |'complet|er-minib|
|00003570| 75 66 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |uf #[(&o|ptional |
|00003580| 6d 6f 64 65 29 20 22 c0 | 09 3f ae 81 5c 6e 3f 19 |mode) ".|.?..\n?.|
|00003590| c3 c4 20 0d 0e 06 0e 07 | 0e 08 0e 09 26 06 29 ca |.. .....|....&.).|
|000035a0| 0e 07 0e 09 45 5c 22 87 | 22 20 5b 61 70 70 65 6e |....E\".|" [appen|
|000035b0| 64 20 63 6f 6d 70 6c 65 | 74 65 72 2d 75 73 65 2d |d comple|ter-use-|
|000035c0| 63 61 63 68 65 20 63 75 | 72 72 65 6e 74 2d 70 72 |cache cu|rrent-pr|
|000035d0| 65 66 69 78 2d 61 72 67 | 20 63 6f 6d 70 6c 65 74 |efix-arg| complet|
|000035e0| 65 72 20 63 6f 6d 70 6c | 65 74 65 72 2d 6d 69 6e |er compl|eter-min|
|000035f0| 69 62 75 66 2d 73 74 72 | 69 6e 67 20 6d 69 6e 69 |ibuf-str|ing mini|
|00003600| 62 75 66 66 65 72 2d 63 | 6f 6d 70 6c 65 74 69 6f |buffer-c|ompletio|
|00003610| 6e 2d 74 61 62 6c 65 20 | 6d 69 6e 69 62 75 66 66 |n-table |minibuff|
|00003620| 65 72 2d 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 70 72 |er-compl|etion-pr|
|00003630| 65 64 69 63 61 74 65 20 | 63 6f 6d 70 6c 65 74 65 |edicate |complete|
|00003640| 72 2d 77 6f 72 64 73 20 | 63 6f 6d 70 6c 65 74 65 |r-words |complete|
|00003650| 72 2d 61 6e 79 2d 64 65 | 6c 69 6d 69 74 65 72 20 |r-any-de|limiter |
|00003660| 6d 6f 64 65 20 22 5e 22 | 5d 20 38 20 22 5c 0a 50 |mode "^"|] 8 "\.P|
|00003670| 61 72 74 69 61 6c 20 63 | 6f 6d 70 6c 65 74 69 6f |artial c|ompletio|
|00003680| 6e 20 6f 66 20 6d 69 6e | 69 62 75 66 66 65 72 20 |n of min|ibuffer |
|00003690| 65 78 70 72 65 73 73 69 | 6f 6e 73 2e 20 20 4f 70 |expressi|ons. Op|
|000036a0| 74 69 6f 6e 61 6c 20 4d | 4f 44 45 20 69 73 0a 27 |tional M|ODE is.'|
|000036b0| 68 65 6c 70 20 66 6f 72 | 20 68 65 6c 70 20 61 6e |help for| help an|
|000036c0| 64 20 27 65 78 69 74 20 | 66 6f 72 20 65 78 69 74 |d 'exit |for exit|
|000036d0| 2e 0a 0a 49 66 20 77 68 | 61 74 20 68 61 73 20 62 |...If wh|at has b|
|000036e0| 65 65 6e 20 74 79 70 65 | 64 20 73 6f 20 66 61 72 |een type|d so far|
|000036f0| 20 6d 61 74 63 68 65 73 | 20 61 6e 79 20 70 6f 73 | matches| any pos|
|00003700| 73 69 62 69 6c 69 74 79 | 20 6e 6f 72 6d 61 6c 0a |sibility| normal.|
|00003710| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 77 69 6c 6c 20 |completi|on will |
|00003720| 62 65 20 64 6f 6e 65 2e | 20 20 4f 74 68 65 72 77 |be done.| Otherw|
|00003730| 69 73 65 2c 20 74 68 65 | 20 73 74 72 69 6e 67 20 |ise, the| string |
|00003740| 69 73 20 63 6f 6e 73 69 | 64 65 72 65 64 20 74 6f |is consi|dered to|
|00003750| 20 62 65 20 61 0a 70 61 | 74 74 65 72 6e 20 77 69 | be a.pa|ttern wi|
|00003760| 74 68 20 77 6f 72 64 73 | 20 64 65 6c 69 6d 69 74 |th words| delimit|
|00003770| 65 64 20 62 79 20 74 68 | 65 20 63 68 61 72 61 63 |ed by th|e charac|
|00003780| 74 65 72 73 20 69 6e 0a | 63 6f 6d 70 6c 65 74 65 |ters in.|complete|
|00003790| 72 2d 77 6f 72 64 73 2e | 20 20 49 66 20 63 6f 6d |r-words.| If com|
|000037a0| 70 6c 65 74 65 72 2d 65 | 78 61 63 74 20 69 73 20 |pleter-e|xact is |
|000037b0| 54 2c 20 74 68 65 20 62 | 65 73 74 20 6d 61 74 63 |T, the b|est matc|
|000037c0| 68 20 77 69 6c 6c 20 62 | 65 0a 74 68 65 20 73 68 |h will b|e.the sh|
|000037d0| 6f 72 74 65 73 74 20 6f | 6e 65 20 77 69 74 68 20 |ortest o|ne with |
|000037e0| 74 68 65 20 73 61 6d 65 | 20 6e 75 6d 62 65 72 20 |the same| number |
|000037f0| 6f 66 20 77 6f 72 64 73 | 20 61 73 20 74 68 65 20 |of words| as the |
|00003800| 70 61 74 74 65 72 6e 20 | 69 66 0a 70 6f 73 73 69 |pattern |if.possi|
|00003810| 62 6c 65 20 61 6e 64 20 | 6f 74 68 65 72 77 69 73 |ble and |otherwis|
|00003820| 65 20 74 68 65 20 73 68 | 6f 72 74 65 73 74 20 6d |e the sh|ortest m|
|00003830| 61 74 63 68 69 6e 67 20 | 65 78 70 72 65 73 73 69 |atching |expressi|
|00003840| 6f 6e 2e 20 20 49 66 20 | 63 61 6c 6c 65 64 0a 77 |on. If |called.w|
|00003850| 69 74 68 20 61 20 70 72 | 65 66 69 78 2c 20 63 61 |ith a pr|efix, ca|
|00003860| 63 68 69 6e 67 20 77 69 | 6c 6c 20 62 65 20 74 65 |ching wi|ll be te|
|00003870| 6d 70 6f 72 61 72 69 6c | 79 20 64 69 73 61 62 6c |mporaril|y disabl|
|00003880| 65 64 2e 0a 0a 45 78 61 | 6d 70 6c 65 73 3a 0a 61 |ed...Exa|mples:.a|
|00003890| 2d 66 20 20 20 20 20 61 | 75 74 6f 2d 66 69 6c 6c |-f a|uto-fill|
|000038a0| 2d 6d 6f 64 65 0a 72 2d | 65 20 20 20 20 20 72 6d |-mode.r-|e rm|
|000038b0| 61 69 6c 2d 65 78 70 75 | 6e 67 65 0a 62 2d 2d 64 |ail-expu|nge.b--d|
|000038c0| 20 20 20 20 2a 62 65 67 | 69 6e 69 6e 67 2d 6f 66 | *beg|ining-of|
|000038d0| 2d 64 65 66 75 6e 20 6f | 72 20 62 79 74 65 2d 72 |-defun o|r byte-r|
|000038e0| 65 63 6f 6d 70 69 6c 65 | 2d 64 69 72 65 63 74 6f |ecompile|-directo|
|000038f0| 72 79 0a 62 79 20 20 64 | 20 20 20 2a 62 79 74 65 |ry.by d| *byte|
|00003900| 2d 72 65 63 6f 6d 70 69 | 6c 65 2d 64 69 72 65 63 |-recompi|le-direc|
|00003910| 74 6f 72 79 20 69 66 20 | 63 6f 6d 70 6c 65 74 65 |tory if |complete|
|00003920| 72 2d 61 6e 79 2d 64 65 | 6c 69 6d 69 74 65 72 20 |r-any-de|limiter |
|00003930| 69 73 20 5c 22 20 5c 22 | 0a 7e 2f 69 2e 65 20 20 |is \" \"|.~/i.e |
|00003940| 20 2a 7e 2f 69 6c 69 73 | 70 2e 65 6c 20 6f 72 20 | *~/ilis|p.el or |
|00003950| 7e 2f 69 6c 2d 65 6c 2e | 65 6c 20 6f 72 20 7e 2f |~/il-el.|el or ~/|
|00003960| 69 6c 69 73 70 2e 65 6c | 63 0a 2f 75 2f 6d 69 2f |ilisp.el|c./u/mi/|
|00003970| 20 20 2f 75 73 72 2f 6d | 69 73 63 2f 22 20 6e 69 | /usr/m|isc/" ni|
|00003980| 6c 5d 29 0a 28 66 73 65 | 74 20 27 63 6f 6d 70 6c |l]).(fse|t 'compl|
|00003990| 65 74 65 72 2d 74 6f 67 | 67 6c 65 20 23 5b 6e 69 |eter-tog|gle #[ni|
|000039a0| 6c 20 22 08 3f 10 c1 08 | ab 83 c2 aa 81 c3 21 87 |l ".?...|......!.|
|000039b0| 22 20 5b 63 6f 6d 70 6c | 65 74 65 72 2d 64 69 73 |" [compl|eter-dis|
|000039c0| 61 62 6c 65 20 6d 65 73 | 73 61 67 65 20 22 50 61 |able mes|sage "Pa|
|000039d0| 72 74 69 61 6c 20 63 6f | 6d 70 6c 65 74 69 6f 6e |rtial co|mpletion|
|000039e0| 20 4f 46 46 22 20 22 50 | 61 72 74 69 61 6c 20 63 | OFF" "P|artial c|
|000039f0| 6f 6d 70 6c 65 74 69 6f | 6e 20 4f 4e 22 5d 20 32 |ompletio|n ON"] 2|
|00003a00| 20 22 5c 0a 54 75 72 6e | 20 70 61 72 74 69 61 6c | "\.Turn| partial|
|00003a10| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 6f 6e 20 6f | complet|ion on o|
|00003a20| 72 20 6f 66 66 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |r off." |nil]).(d|
|00003a30| 65 66 76 61 72 20 63 6f | 6d 70 6c 65 74 65 72 2d |efvar co|mpleter-|
|00003a40| 6f 6c 64 2d 68 65 6c 70 | 20 28 6c 6f 6f 6b 75 70 |old-help| (lookup|
|00003a50| 2d 6b 65 79 20 6d 69 6e | 69 62 75 66 66 65 72 2d |-key min|ibuffer-|
|00003a60| 6c 6f 63 61 6c 2d 6d 75 | 73 74 2d 6d 61 74 63 68 |local-mu|st-match|
|00003a70| 2d 6d 61 70 20 22 3f 22 | 29 20 22 5c 0a 4f 6c 64 |-map "?"|) "\.Old|
|00003a80| 20 62 69 6e 64 69 6e 67 | 20 6f 66 20 3f 20 69 6e | binding| of ? in|
|00003a90| 20 6d 69 6e 69 62 75 66 | 66 65 72 20 63 6f 6d 70 | minibuf|fer comp|
|00003aa0| 6c 65 74 69 6f 6e 20 6d | 61 70 2e 22 29 0a 28 66 |letion m|ap.").(f|
|00003ab0| 73 65 74 20 27 63 6f 6d | 70 6c 65 74 65 72 2d 68 |set 'com|pleter-h|
|00003ac0| 65 6c 70 20 23 5b 6e 69 | 6c 20 22 c0 09 21 ad 86 |elp #[ni|l "..!..|
|00003ad0| c2 c3 c4 c5 21 5c 22 87 | 22 20 5b 63 6f 6d 70 6c |....!\".|" [compl|
|00003ae0| 65 74 65 72 2d 6e 65 77 | 2d 63 6d 64 20 63 6f 6d |eter-new|-cmd com|
|00003af0| 70 6c 65 74 65 72 2d 6f | 6c 64 2d 68 65 6c 70 20 |pleter-o|ld-help |
|00003b00| 61 70 70 6c 79 20 63 6f | 6d 70 6c 65 74 65 72 2d |apply co|mpleter-|
|00003b10| 67 6f 74 6f 20 63 6f 6d | 70 6c 65 74 65 72 2d 6d |goto com|pleter-m|
|00003b20| 69 6e 69 62 75 66 20 68 | 65 6c 70 5d 20 34 20 22 |inibuf h|elp] 4 "|
|00003b30| 5c 0a 50 61 72 74 69 61 | 6c 20 63 6f 6d 70 6c 65 |\.Partia|l comple|
|00003b40| 74 69 6f 6e 20 6d 69 6e | 69 62 75 66 66 65 72 2d |tion min|ibuffer-|
|00003b50| 63 6f 6d 70 6c 65 74 69 | 6f 6e 2d 68 65 6c 70 2e |completi|on-help.|
|00003b60| 20 20 0a 53 65 65 20 63 | 6f 6d 70 6c 65 74 65 72 | .See c|ompleter|
|00003b70| 2d 6d 69 6e 69 62 75 66 | 20 66 6f 72 20 6d 6f 72 |-minibuf| for mor|
|00003b80| 65 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 2e 22 20 |e inform|ation." |
|00003b90| 6e 69 6c 5d 29 0a 28 64 | 65 66 76 61 72 20 63 6f |nil]).(d|efvar co|
|00003ba0| 6d 70 6c 65 74 65 72 2d | 6f 6c 64 2d 63 6f 6d 70 |mpleter-|old-comp|
|00003bb0| 6c 65 74 65 72 20 28 6c | 6f 6f 6b 75 70 2d 6b 65 |leter (l|ookup-ke|
|00003bc0| 79 20 6d 69 6e 69 62 75 | 66 66 65 72 2d 6c 6f 63 |y minibu|ffer-loc|
|00003bd0| 61 6c 2d 6d 75 73 74 2d | 6d 61 74 63 68 2d 6d 61 |al-must-|match-ma|
|00003be0| 70 20 22 09 22 29 20 22 | 5c 0a 4f 6c 64 20 62 69 |p ".") "|\.Old bi|
|00003bf0| 6e 64 69 6e 67 20 6f 66 | 20 54 41 42 20 69 6e 20 |nding of| TAB in |
|00003c00| 6d 69 6e 69 62 75 66 66 | 65 72 20 63 6f 6d 70 6c |minibuff|er compl|
|00003c10| 65 74 69 6f 6e 20 6d 61 | 70 2e 22 29 0a 28 66 73 |etion ma|p.").(fs|
|00003c20| 65 74 20 27 63 6f 6d 70 | 6c 65 74 65 72 2d 63 6f |et 'comp|leter-co|
|00003c30| 6d 70 6c 65 74 65 20 23 | 5b 6e 69 6c 20 22 c0 09 |mplete #|[nil "..|
|00003c40| 21 ad 85 c2 c3 c4 20 5c | 22 87 22 20 5b 63 6f 6d |!..... \|"." [com|
|00003c50| 70 6c 65 74 65 72 2d 6e | 65 77 2d 63 6d 64 20 63 |pleter-n|ew-cmd c|
|00003c60| 6f 6d 70 6c 65 74 65 72 | 2d 6f 6c 64 2d 63 6f 6d |ompleter|-old-com|
|00003c70| 70 6c 65 74 65 72 20 61 | 70 70 6c 79 20 63 6f 6d |pleter a|pply com|
|00003c80| 70 6c 65 74 65 72 2d 67 | 6f 74 6f 20 63 6f 6d 70 |pleter-g|oto comp|
|00003c90| 6c 65 74 65 72 2d 6d 69 | 6e 69 62 75 66 5d 20 33 |leter-mi|nibuf] 3|
|00003ca0| 20 22 5c 0a 50 61 72 74 | 69 61 6c 20 63 6f 6d 70 | "\.Part|ial comp|
|00003cb0| 6c 65 74 69 6f 6e 20 6d | 69 6e 69 62 75 66 66 65 |letion m|inibuffe|
|00003cc0| 72 2d 63 6f 6d 70 6c 65 | 74 65 2e 0a 53 65 65 20 |r-comple|te..See |
|00003cd0| 63 6f 6d 70 6c 65 74 65 | 72 2d 6d 69 6e 69 62 75 |complete|r-minibu|
|00003ce0| 66 20 66 6f 72 20 6d 6f | 72 65 20 69 6e 66 6f 72 |f for mo|re infor|
|00003cf0| 6d 61 74 69 6f 6e 2e 22 | 20 6e 69 6c 5d 29 0a 28 |mation."| nil]).(|
|00003d00| 64 65 66 76 61 72 20 63 | 6f 6d 70 6c 65 74 65 72 |defvar c|ompleter|
|00003d10| 2d 6f 6c 64 2d 77 6f 72 | 64 20 28 6c 6f 6f 6b 75 |-old-wor|d (looku|
|00003d20| 70 2d 6b 65 79 20 6d 69 | 6e 69 62 75 66 66 65 72 |p-key mi|nibuffer|
|00003d30| 2d 6c 6f 63 61 6c 2d 6d | 75 73 74 2d 6d 61 74 63 |-local-m|ust-matc|
|00003d40| 68 2d 6d 61 70 20 22 20 | 22 29 20 22 5c 0a 4f 6c |h-map " |") "\.Ol|
|00003d50| 64 20 62 69 6e 64 69 6e | 67 20 6f 66 20 53 50 41 |d bindin|g of SPA|
|00003d60| 43 45 20 69 6e 20 6d 69 | 6e 69 62 75 66 66 65 72 |CE in mi|nibuffer|
|00003d70| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 20 6d 61 70 2e | complet|ion map.|
|00003d80| 22 29 0a 28 66 73 65 74 | 20 27 63 6f 6d 70 6c 65 |").(fset| 'comple|
|00003d90| 74 65 72 2d 77 6f 72 64 | 20 23 5b 6e 69 6c 20 22 |ter-word| #[nil "|
|00003da0| 08 c1 3d ab 83 c1 63 87 | c2 0b 21 ad 85 c4 c5 c6 |..=...c.|..!.....|
|00003db0| 20 5c 22 87 22 20 5b 63 | 6f 6d 70 6c 65 74 65 72 | \"." [c|ompleter|
|00003dc0| 2d 61 6e 79 2d 64 65 6c | 69 6d 69 74 65 72 20 33 |-any-del|imiter 3|
|00003dd0| 32 20 63 6f 6d 70 6c 65 | 74 65 72 2d 6e 65 77 2d |2 comple|ter-new-|
|00003de0| 63 6d 64 20 63 6f 6d 70 | 6c 65 74 65 72 2d 6f 6c |cmd comp|leter-ol|
|00003df0| 64 2d 77 6f 72 64 20 61 | 70 70 6c 79 20 63 6f 6d |d-word a|pply com|
|00003e00| 70 6c 65 74 65 72 2d 67 | 6f 74 6f 20 63 6f 6d 70 |pleter-g|oto comp|
|00003e10| 6c 65 74 65 72 2d 6d 69 | 6e 69 62 75 66 5d 20 33 |leter-mi|nibuf] 3|
|00003e20| 20 22 5c 0a 50 61 72 74 | 69 61 6c 20 63 6f 6d 70 | "\.Part|ial comp|
|00003e30| 6c 65 74 69 6f 6e 20 6d | 69 6e 69 62 75 66 66 65 |letion m|inibuffe|
|00003e40| 72 2d 63 6f 6d 70 6c 65 | 74 65 2e 0a 53 65 65 20 |r-comple|te..See |
|00003e50| 63 6f 6d 70 6c 65 74 65 | 72 2d 6d 69 6e 69 62 75 |complete|r-minibu|
|00003e60| 66 20 66 6f 72 20 6d 6f | 72 65 20 69 6e 66 6f 72 |f for mo|re infor|
|00003e70| 6d 61 74 69 6f 6e 2e 22 | 20 6e 69 6c 5d 29 0a 28 |mation."| nil]).(|
|00003e80| 64 65 66 76 61 72 20 63 | 6f 6d 70 6c 65 74 65 72 |defvar c|ompleter|
|00003e90| 2d 6f 6c 64 2d 65 78 69 | 74 20 28 6c 6f 6f 6b 75 |-old-exi|t (looku|
|00003ea0| 70 2d 6b 65 79 20 6d 69 | 6e 69 62 75 66 66 65 72 |p-key mi|nibuffer|
|00003eb0| 2d 6c 6f 63 61 6c 2d 6d | 75 73 74 2d 6d 61 74 63 |-local-m|ust-matc|
|00003ec0| 68 2d 6d 61 70 20 22 5c | 6e 22 29 20 22 5c 0a 4f |h-map "\|n") "\.O|
|00003ed0| 6c 64 20 62 69 6e 64 69 | 6e 67 20 6f 66 20 52 45 |ld bindi|ng of RE|
|00003ee0| 54 20 69 6e 20 6d 69 6e | 69 62 75 66 66 65 72 20 |T in min|ibuffer |
|00003ef0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 20 6d 61 70 2e 22 |completi|on map."|
|00003f00| 29 0a 28 66 73 65 74 20 | 27 63 6f 6d 70 6c 65 74 |).(fset |'complet|
|00003f10| 65 72 2d 65 78 69 74 20 | 23 5b 6e 69 6c 20 22 c0 |er-exit |#[nil ".|
|00003f20| 09 21 ad b8 c2 c3 21 89 | 1c 40 1d 0c 41 41 41 40 |.!....!.|.@..AAA@|
|00003f30| 1e 06 c7 c8 0c 5c 22 88 | 0e 06 ab 84 c9 20 aa 9c |.....\".|..... ..|
|00003f40| 0d ab 92 ca 0d cb 5c 22 | 88 0e 0c ab 85 cd ce 21 |......\"|.......!|
|00003f50| aa 8b c9 20 aa 87 0e 0d | 3f ad 82 cf 20 2b 87 22 |... ....|?... +."|
|00003f60| 20 5b 63 6f 6d 70 6c 65 | 74 65 72 2d 6e 65 77 2d | [comple|ter-new-|
|00003f70| 63 6d 64 20 63 6f 6d 70 | 6c 65 74 65 72 2d 6f 6c |cmd comp|leter-ol|
|00003f80| 64 2d 65 78 69 74 20 63 | 6f 6d 70 6c 65 74 65 72 |d-exit c|ompleter|
|00003f90| 2d 6d 69 6e 69 62 75 66 | 20 65 78 69 74 20 63 6f |-minibuf| exit co|
|00003fa0| 6d 70 6c 65 74 69 6f 6e | 73 20 6d 61 74 63 68 20 |mpletion|s match |
|00003fb0| 75 6e 69 71 75 65 2d 70 | 20 61 70 70 6c 79 20 63 |unique-p| apply c|
|00003fc0| 6f 6d 70 6c 65 74 65 72 | 2d 67 6f 74 6f 20 63 6f |ompleter|-goto co|
|00003fd0| 6d 70 6c 65 74 65 72 2d | 6d 69 6e 69 62 75 66 2d |mpleter-|minibuf-|
|00003fe0| 65 78 69 74 20 63 6f 6d | 70 6c 65 74 65 72 2d 69 |exit com|pleter-i|
|00003ff0| 6e 73 65 72 74 20 22 5e | 22 20 6d 69 6e 69 62 75 |nsert "^|" minibu|
|00004000| 66 66 65 72 2d 63 6f 6d | 70 6c 65 74 69 6f 6e 2d |ffer-com|pletion-|
|00004010| 63 6f 6e 66 69 72 6d 20 | 63 6f 6d 70 6c 65 74 65 |confirm |complete|
|00004020| 72 2d 6d 65 73 73 61 67 | 65 20 22 20 28 43 6f 6e |r-messag|e " (Con|
|00004030| 66 69 72 6d 29 22 20 62 | 65 65 70 5d 20 34 20 22 |firm)" b|eep] 4 "|
|00004040| 5c 0a 50 61 72 74 69 61 | 6c 20 63 6f 6d 70 6c 65 |\.Partia|l comple|
|00004050| 74 69 6f 6e 20 6d 69 6e | 69 62 75 66 66 65 72 2d |tion min|ibuffer-|
|00004060| 63 6f 6d 70 6c 65 74 65 | 2d 61 6e 64 2d 65 78 69 |complete|-and-exi|
|00004070| 74 2e 0a 53 65 65 20 63 | 6f 6d 70 6c 65 74 65 72 |t..See c|ompleter|
|00004080| 2d 6d 69 6e 69 62 75 66 | 20 66 6f 72 20 6d 6f 72 |-minibuf| for mor|
|00004090| 65 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 2e 22 20 |e inform|ation." |
|000040a0| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 63 6f 6d |nil]).(f|set 'com|
|000040b0| 70 6c 65 74 65 72 2d 6d | 61 74 63 68 2d 65 78 69 |pleter-m|atch-exi|
|000040c0| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 89 1a 40 89 |t #[nil |"..!..@.|
|000040d0| 1b ac 87 c0 c4 21 89 12 | 40 13 0b ab 8e 65 62 88 |.....!..|@....eb.|
|000040e0| 0b 63 88 60 64 7c 88 c5 | 20 aa 84 c6 c7 5c 6e 5c |.c.`d|..| ....\n\|
|000040f0| 22 2a 87 22 20 5b 63 6f | 6d 70 6c 65 74 65 72 2d |"*." [co|mpleter-|
|00004100| 6d 69 6e 69 62 75 66 20 | 65 78 69 74 20 63 6f 6d |minibuf |exit com|
|00004110| 70 6c 65 74 69 6f 6e 73 | 20 67 75 65 73 73 20 65 |pletions| guess e|
|00004120| 78 69 74 2d 6f 6b 20 65 | 78 69 74 2d 6d 69 6e 69 |xit-ok e|xit-mini|
|00004130| 62 75 66 66 65 72 20 61 | 70 70 6c 79 20 63 6f 6d |buffer a|pply com|
|00004140| 70 6c 65 74 65 72 2d 67 | 6f 74 6f 5d 20 34 20 22 |pleter-g|oto] 4 "|
|00004150| 5c 0a 45 78 69 74 20 74 | 68 65 20 6d 69 6e 69 62 |\.Exit t|he minib|
|00004160| 75 66 66 65 72 20 77 69 | 74 68 20 74 68 65 20 63 |uffer wi|th the c|
|00004170| 75 72 72 65 6e 74 20 62 | 65 73 74 20 6d 61 74 63 |urrent b|est matc|
|00004180| 68 2e 22 20 6e 69 6c 5d | 29 0a 28 62 79 74 65 2d |h." nil]|).(byte-|
|00004190| 63 6f 64 65 20 22 c0 09 | c2 c3 23 88 c0 09 c4 c5 |code "..|..#.....|
|000041a0| 23 88 c0 09 c6 c7 23 88 | c0 09 c8 c9 23 88 c0 09 |#.....#.|....#...|
|000041b0| ca cb 23 88 c0 09 cc cb | 23 88 c0 09 cd ce 23 88 |..#.....|#.....#.|
|000041c0| c0 09 cf ce 23 88 c0 0e | 10 c2 c3 23 88 c0 0e 10 |....#...|...#....|
|000041d0| c4 c5 23 88 c0 0e 10 c6 | c7 23 88 c0 0e 10 ca d1 |..#.....|.#......|
|000041e0| 23 88 c0 0e 10 cc d1 23 | 88 c0 0e 10 c8 c9 23 88 |#......#|......#.|
|000041f0| c0 0e 10 cd ce 23 88 c0 | 0e 10 cf ce 23 87 22 20 |.....#..|....#." |
|00004200| 5b 64 65 66 69 6e 65 2d | 6b 65 79 20 6d 69 6e 69 |[define-|key mini|
|00004210| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 2d 63 6f 6d |buffer-l|ocal-com|
|00004220| 70 6c 65 74 69 6f 6e 2d | 6d 61 70 20 22 1f 22 20 |pletion-|map "." |
|00004230| 63 6f 6d 70 6c 65 74 65 | 72 2d 75 6e 64 6f 20 22 |complete|r-undo "|
|00004240| 09 22 20 63 6f 6d 70 6c | 65 74 65 72 2d 63 6f 6d |." compl|eter-com|
|00004250| 70 6c 65 74 65 20 22 20 | 22 20 63 6f 6d 70 6c 65 |plete " |" comple|
|00004260| 74 65 72 2d 77 6f 72 64 | 20 22 3f 22 20 63 6f 6d |ter-word| "?" com|
|00004270| 70 6c 65 74 65 72 2d 68 | 65 6c 70 20 22 5c 6e 22 |pleter-h|elp "\n"|
|00004280| 20 63 6f 6d 70 6c 65 74 | 65 72 2d 6d 69 6e 69 62 | complet|er-minib|
|00004290| 75 66 2d 65 78 69 74 20 | 22 0d 22 20 22 8a 22 20 |uf-exit |"." "." |
|000042a0| 63 6f 6d 70 6c 65 74 65 | 72 2d 6d 61 74 63 68 2d |complete|r-match-|
|000042b0| 65 78 69 74 20 22 8d 22 | 20 6d 69 6e 69 62 75 66 |exit "."| minibuf|
|000042c0| 66 65 72 2d 6c 6f 63 61 | 6c 2d 6d 75 73 74 2d 6d |fer-loca|l-must-m|
|000042d0| 61 74 63 68 2d 6d 61 70 | 20 63 6f 6d 70 6c 65 74 |atch-map| complet|
|000042e0| 65 72 2d 65 78 69 74 5d | 20 34 29 0a 28 66 73 65 |er-exit]| 4).(fse|
|000042f0| 74 20 27 63 6f 6d 70 6c | 65 74 65 72 2d 63 6f 6d |t 'compl|eter-com|
|00004300| 69 6e 74 2d 64 79 6e 61 | 6d 69 63 2d 6c 69 73 74 |int-dyna|mic-list|
|00004310| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 20 23 5b 28 |-complet|ions #[(|
|00004320| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 29 20 22 c0 c1 |completi|ons) "..|
|00004330| c2 5c 22 87 22 20 5b 63 | 6f 6d 70 6c 65 74 65 72 |.\"." [c|ompleter|
|00004340| 2d 63 6f 6d 69 6e 74 2d | 64 79 6e 61 6d 69 63 2d |-comint-|dynamic-|
|00004350| 63 6f 6d 70 6c 65 74 65 | 2d 31 20 6e 69 6c 20 68 |complete|-1 nil h|
|00004360| 65 6c 70 5d 20 33 20 22 | 5c 0a 4c 69 73 74 20 69 |elp] 3 "|\.List i|
|00004370| 6e 20 68 65 6c 70 20 62 | 75 66 66 65 72 20 73 6f |n help b|uffer so|
|00004380| 72 74 65 64 20 43 4f 4d | 50 4c 45 54 49 4f 4e 53 |rted COM|PLETIONS|
|00004390| 2e 0a 54 79 70 69 6e 67 | 20 53 50 43 20 66 6c 75 |..Typing| SPC flu|
|000043a0| 73 68 65 73 20 74 68 65 | 20 68 65 6c 70 20 62 75 |shes the| help bu|
|000043b0| 66 66 65 72 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |ffer."])|.(fset '|
|000043c0| 63 6f 6d 70 6c 65 74 65 | 72 2d 63 6f 6d 69 6e 74 |complete|r-comint|
|000043d0| 2d 64 79 6e 61 6d 69 63 | 2d 63 6f 6d 70 6c 65 74 |-dynamic|-complet|
|000043e0| 65 2d 66 69 6c 65 6e 61 | 6d 65 20 23 5b 6e 69 6c |e-filena|me #[nil|
|000043f0| 20 22 c0 c1 c2 5c 22 87 | 22 20 5b 63 6f 6d 70 6c | "...\".|" [compl|
|00004400| 65 74 65 72 2d 63 6f 6d | 69 6e 74 2d 64 79 6e 61 |eter-com|int-dyna|
|00004410| 6d 69 63 2d 63 6f 6d 70 | 6c 65 74 65 2d 31 20 6e |mic-comp|lete-1 n|
|00004420| 69 6c 20 74 5d 20 33 20 | 22 5c 0a 44 79 6e 61 6d |il t] 3 |"\.Dynam|
|00004430| 69 63 61 6c 6c 79 20 63 | 6f 6d 70 6c 65 74 65 20 |ically c|omplete |
|00004440| 74 68 65 20 66 69 6c 65 | 6e 61 6d 65 20 61 74 20 |the file|name at |
|00004450| 70 6f 69 6e 74 2e 22 5d | 29 0a 28 66 73 65 74 20 |point."]|).(fset |
|00004460| 27 63 6f 6d 70 6c 65 74 | 65 72 2d 63 6f 6d 69 6e |'complet|er-comin|
|00004470| 74 2d 64 79 6e 61 6d 69 | 63 2d 63 6f 6d 70 6c 65 |t-dynami|c-comple|
|00004480| 74 65 2d 31 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |te-1 #[(|&optiona|
|00004490| 6c 20 75 6e 64 6f 20 6d | 6f 64 65 29 20 22 08 ab |l undo m|ode) "..|
|000044a0| 83 c1 20 87 c2 13 c4 20 | 1d c6 c7 0e 08 c9 0e 5c |.. .... |.......\|
|000044b0| 6e 0e 0b 25 88 0e 0b cc | 3d ad 83 cd 0d 21 29 87 |n..%....|=....!).|
|000044c0| 22 20 5b 75 6e 64 6f 20 | 63 6f 6d 70 6c 65 74 65 |" [undo |complete|
|000044d0| 72 2d 75 6e 64 6f 20 6e | 69 6c 20 63 6f 6d 70 6c |r-undo n|il compl|
|000044e0| 65 74 65 72 2d 73 74 72 | 69 6e 67 20 63 75 72 72 |eter-str|ing curr|
|000044f0| 65 6e 74 2d 77 69 6e 64 | 6f 77 2d 63 6f 6e 66 69 |ent-wind|ow-confi|
|00004500| 67 75 72 61 74 69 6f 6e | 20 63 6f 6e 66 20 63 6f |guration| conf co|
|00004510| 6d 70 6c 65 74 65 72 2d | 63 6f 6d 70 6c 65 74 65 |mpleter-|complete|
|00004520| 2d 67 6f 74 6f 20 22 5e | 20 09 5c 6e 5c 22 22 20 |-goto "^| .\n\"" |
|00004530| 63 6f 6d 70 6c 65 74 65 | 72 2d 77 6f 72 64 73 20 |complete|r-words |
|00004540| 72 65 61 64 2d 66 69 6c | 65 2d 6e 61 6d 65 2d 69 |read-fil|e-name-i|
|00004550| 6e 74 65 72 6e 61 6c 20 | 64 65 66 61 75 6c 74 2d |nternal |default-|
|00004560| 64 69 72 65 63 74 6f 72 | 79 20 6d 6f 64 65 20 68 |director|y mode h|
|00004570| 65 6c 70 20 63 6f 6d 69 | 6e 74 2d 72 65 73 74 6f |elp comi|nt-resto|
|00004580| 72 65 2d 77 69 6e 64 6f | 77 2d 63 6f 6e 66 69 67 |re-windo|w-config|
|00004590| 5d 20 36 20 22 5c 0a 43 | 6f 6d 70 6c 65 74 65 20 |] 6 "\.C|omplete |
|000045a0| 74 68 65 20 70 72 65 76 | 69 6f 75 73 20 66 69 6c |the prev|ious fil|
|000045b0| 65 6e 61 6d 65 20 6f 72 | 20 64 69 73 70 6c 61 79 |ename or| display|
|000045c0| 20 70 6f 73 73 69 62 69 | 6c 69 74 69 65 73 20 69 | possibi|lities i|
|000045d0| 66 20 64 6f 6e 65 0a 74 | 77 69 63 65 20 69 6e 20 |f done.t|wice in |
|000045e0| 61 20 72 6f 77 2e 20 20 | 49 66 20 63 61 6c 6c 65 |a row. |If calle|
|000045f0| 64 20 77 69 74 68 20 61 | 20 70 72 65 66 69 78 2c |d with a| prefix,|
|00004600| 20 75 6e 64 6f 20 74 68 | 65 20 6c 61 73 74 20 63 | undo th|e last c|
|00004610| 6f 6d 70 6c 65 74 69 6f | 6e 2e 22 20 22 50 22 5d |ompletio|n." "P"]|
|00004620| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00004630| 4d 88 c2 c3 4d 88 c4 c5 | c6 21 ad 9c 0e 06 ad 98 |M...M...|.!......|
|00004640| 0e 06 3a ab 90 0e 06 40 | c7 3d ab 85 0e 06 43 aa |..:....@|.=....C.|
|00004650| 87 0e 06 aa 83 0e 06 43 | 42 16 06 c0 87 22 20 5b |.......C|B...." [|
|00004660| 63 6f 6d 69 6e 74 2d 64 | 79 6e 61 6d 69 63 2d 63 |comint-d|ynamic-c|
|00004670| 6f 6d 70 6c 65 74 65 2d | 66 69 6c 65 6e 61 6d 65 |omplete-|filename|
|00004680| 20 63 6f 6d 70 6c 65 74 | 65 72 2d 63 6f 6d 69 6e | complet|er-comin|
|00004690| 74 2d 64 79 6e 61 6d 69 | 63 2d 63 6f 6d 70 6c 65 |t-dynami|c-comple|
|000046a0| 74 65 2d 66 69 6c 65 6e | 61 6d 65 20 63 6f 6d 69 |te-filen|ame comi|
|000046b0| 6e 74 2d 64 79 6e 61 6d | 69 63 2d 6c 69 73 74 2d |nt-dynam|ic-list-|
|000046c0| 63 6f 6d 70 6c 65 74 69 | 6f 6e 73 20 63 6f 6d 70 |completi|ons comp|
|000046d0| 6c 65 74 65 72 2d 63 6f | 6d 69 6e 74 2d 64 79 6e |leter-co|mint-dyn|
|000046e0| 61 6d 69 63 2d 6c 69 73 | 74 2d 63 6f 6d 70 6c 65 |amic-lis|t-comple|
|000046f0| 74 69 6f 6e 73 20 23 5b | 6e 69 6c 20 22 c0 c1 4d |tions #[|nil "..M|
|00004700| 88 c2 c3 4d 87 22 20 5b | 63 6f 6d 69 6e 74 2d 64 |...M." [|comint-d|
|00004710| 79 6e 61 6d 69 63 2d 63 | 6f 6d 70 6c 65 74 65 2d |ynamic-c|omplete-|
|00004720| 66 69 6c 65 6e 61 6d 65 | 20 63 6f 6d 70 6c 65 74 |filename| complet|
|00004730| 65 72 2d 63 6f 6d 69 6e | 74 2d 64 79 6e 61 6d 69 |er-comin|t-dynami|
|00004740| 63 2d 63 6f 6d 70 6c 65 | 74 65 2d 66 69 6c 65 6e |c-comple|te-filen|
|00004750| 61 6d 65 20 63 6f 6d 69 | 6e 74 2d 64 79 6e 61 6d |ame comi|nt-dynam|
|00004760| 69 63 2d 6c 69 73 74 2d | 63 6f 6d 70 6c 65 74 69 |ic-list-|completi|
|00004770| 6f 6e 73 20 63 6f 6d 70 | 6c 65 74 65 72 2d 63 6f |ons comp|leter-co|
|00004780| 6d 69 6e 74 2d 64 79 6e | 61 6d 69 63 2d 6c 69 73 |mint-dyn|amic-lis|
|00004790| 74 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 5d 20 32 |t-comple|tions] 2|
|000047a0| 5d 20 62 6f 75 6e 64 70 | 20 63 6f 6d 69 6e 74 2d |] boundp| comint-|
|000047b0| 6c 6f 61 64 2d 68 6f 6f | 6b 20 6c 61 6d 62 64 61 |load-hoo|k lambda|
|000047c0| 5d 20 33 29 0a 28 66 73 | 65 74 20 27 6c 69 73 70 |] 3).(fs|et 'lisp|
|000047d0| 2d 63 6f 6d 70 6c 65 74 | 65 2d 73 79 6d 62 6f 6c |-complet|e-symbol|
|000047e0| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 6d 6f | #[(&opt|ional mo|
|000047f0| 64 65 29 20 22 c0 09 21 | c2 57 ab 83 c3 20 87 8a |de) "..!|.W... ..|
|00004800| c4 c5 77 88 60 29 1e 06 | 8a c7 c8 21 88 67 7a c9 |..w.`)..|...!.gz.|
|00004810| 55 ab 85 c8 75 88 aa 75 | 60 29 89 1e 5c 6e 0e 06 |U...u..u|`)..\n..|
|00004820| 7b 1e 0b 0e 5c 6e 53 66 | cc 3d ab 83 cd aa 81 ce |{...\nSf|.=......|
|00004830| 1e 0f d0 0e 0b 0e 11 0e | 0f 23 89 1e 12 d3 3d ae |........|.#....=.|
|00004840| fc 0e 12 ac 95 d4 d5 0e | 16 0e 11 0e 0f c5 0e 0f |........|........|
|00004850| cd 3d 3f ad 81 d7 26 06 | aa e3 0e 0b 0e 12 98 ac |.=?...&.|........|
|00004860| 8b 0e 5c 6e 0e 06 7c 88 | 0e 12 63 aa d1 d8 d9 21 |..\n..|.|..c....!|
|00004870| 88 da 0e 0b 0e 11 0e 0f | 23 1e 1b 0e 0f cd 3d ac |........|#.....=.|
|00004880| ad c5 1e 1c 0e 1b ab a0 | cd dd 0e 1b 40 21 21 ab |........|....@!!.|
|00004890| 87 0e 1b 40 de 44 aa 83 | 0e 1b 40 0e 1c 42 16 1c |...@.D..|..@..B..|
|000048a0| 0e 1b 41 89 16 1b ac 60 | 0e 1c 9f 16 1b 29 df 90 |..A....`|.....)..|
|000048b0| e0 e1 0e 1b e2 5c 22 21 | 91 88 29 d8 e3 e4 5c 22 |.....\"!|..)...\"|
|000048c0| 2d 87 22 20 5b 70 72 65 | 66 69 78 2d 6e 75 6d 65 |-." [pre|fix-nume|
|000048d0| 72 69 63 2d 76 61 6c 75 | 65 20 6d 6f 64 65 20 30 |ric-valu|e mode 0|
|000048e0| 20 63 6f 6d 70 6c 65 74 | 65 72 2d 75 6e 64 6f 20 | complet|er-undo |
|000048f0| 22 5e 20 09 5c 6e 29 5d | 7d 5c 22 22 20 6e 69 6c |"^ .\n)]|}\"" nil|
|00004900| 20 65 6e 64 20 62 61 63 | 6b 77 61 72 64 2d 73 65 | end bac|kward-se|
|00004910| 78 70 20 31 20 33 39 20 | 62 65 67 20 70 61 74 74 |xp 1 39 |beg patt|
|00004920| 65 72 6e 20 34 30 20 66 | 62 6f 75 6e 64 70 20 23 |ern 40 f|boundp #|
|00004930| 5b 28 73 79 6d 29 20 22 | c0 09 21 ae 88 c2 09 21 |[(sym) "|..!....!|
|00004940| ae 83 c3 09 21 87 22 20 | 5b 62 6f 75 6e 64 70 20 |....!." |[boundp |
|00004950| 73 79 6d 20 66 62 6f 75 | 6e 64 70 20 73 79 6d 62 |sym fbou|ndp symb|
|00004960| 6f 6c 2d 70 6c 69 73 74 | 5d 20 32 5d 20 70 72 65 |ol-plist|] 2] pre|
|00004970| 64 69 63 61 74 65 20 74 | 72 79 2d 63 6f 6d 70 6c |dicate t|ry-compl|
|00004980| 65 74 69 6f 6e 20 6f 62 | 61 72 72 61 79 20 63 6f |etion ob|array co|
|00004990| 6d 70 6c 65 74 69 6f 6e | 20 74 20 63 6f 6d 70 6c |mpletion| t compl|
|000049a0| 65 74 65 72 2d 63 6f 6d | 70 6c 65 74 65 2d 67 6f |eter-com|plete-go|
|000049b0| 74 6f 20 22 5e 20 09 5c | 6e 28 29 5b 5d 7b 7d 27 |to "^ .\|n()[]{}'|
|000049c0| 60 22 20 63 6f 6d 70 6c | 65 74 65 72 2d 77 6f 72 |`" compl|eter-wor|
|000049d0| 64 73 20 23 5b 28 63 68 | 6f 69 63 65 29 20 22 c0 |ds #[(ch|oice) ".|
|000049e0| c1 5c 6e 21 21 ab 84 5c | 6e c3 44 87 5c 6e 87 22 |.\n!!..\|n.D.\n."|
|000049f0| 20 5b 66 62 6f 75 6e 64 | 70 20 69 6e 74 65 72 6e | [fbound|p intern|
|00004a00| 20 63 68 6f 69 63 65 20 | 22 20 3c 66 3e 22 5d 20 | choice |" <f>"] |
|00004a10| 33 5d 20 6d 65 73 73 61 | 67 65 20 22 4d 61 6b 69 |3] messa|ge "Maki|
|00004a20| 6e 67 20 63 6f 6d 70 6c | 65 74 69 6f 6e 20 6c 69 |ng compl|etion li|
|00004a30| 73 74 2e 2e 2e 22 20 61 | 6c 6c 2d 63 6f 6d 70 6c |st..." a|ll-compl|
|00004a40| 65 74 69 6f 6e 73 20 6c | 69 73 74 20 6e 65 77 20 |etions l|ist new |
|00004a50| 69 6e 74 65 72 6e 20 22 | 20 3c 66 3e 22 20 22 2a |intern "| <f>" "*|
|00004a60| 48 65 6c 70 2a 22 20 64 | 69 73 70 6c 61 79 2d 63 |Help*" d|isplay-c|
|00004a70| 6f 6d 70 6c 65 74 69 6f | 6e 2d 6c 69 73 74 20 73 |ompletio|n-list s|
|00004a80| 6f 72 74 20 23 5b 28 78 | 20 79 29 20 22 08 a2 ae |ort #[(x| y) "...|
|00004a90| 81 08 09 a2 ae 81 09 99 | 87 22 20 5b 78 20 79 5d |........|." [x y]|
|00004aa0| 20 32 5d 20 22 4d 61 6b | 69 6e 67 20 63 6f 6d 70 | 2] "Mak|ing comp|
|00004ab0| 6c 65 74 69 6f 6e 20 6c | 69 73 74 2e 2e 2e 25 73 |letion l|ist...%s|
|00004ac0| 22 20 22 64 6f 6e 65 22 | 5d 20 39 20 22 5c 0a 50 |" "done"|] 9 "\.P|
|00004ad0| 65 72 66 6f 72 6d 20 70 | 61 72 74 69 61 6c 20 63 |erform p|artial c|
|00004ae0| 6f 6d 70 6c 65 74 69 6f | 6e 20 6f 6e 20 4c 69 73 |ompletio|n on Lis|
|00004af0| 70 20 73 79 6d 62 6f 6c | 20 70 72 65 63 65 64 69 |p symbol| precedi|
|00004b00| 6e 67 20 70 6f 69 6e 74 | 2e 20 20 54 68 61 74 0a |ng point|. That.|
|00004b10| 73 79 6d 62 6f 6c 20 69 | 73 20 63 6f 6d 70 61 72 |symbol i|s compar|
|00004b20| 65 64 20 61 67 61 69 6e | 73 74 20 74 68 65 20 73 |ed again|st the s|
|00004b30| 79 6d 62 6f 6c 73 20 74 | 68 61 74 20 65 78 69 73 |ymbols t|hat exis|
|00004b40| 74 20 61 6e 64 20 61 6e | 79 20 61 64 64 69 74 69 |t and an|y additi|
|00004b50| 6f 6e 61 6c 0a 63 68 61 | 72 61 63 74 65 72 73 20 |onal.cha|racters |
|00004b60| 64 65 74 65 72 6d 69 6e | 65 64 20 62 79 20 77 68 |determin|ed by wh|
|00004b70| 61 74 20 69 73 20 74 68 | 65 72 65 20 61 72 65 20 |at is th|ere are |
|00004b80| 69 6e 73 65 72 74 65 64 | 2e 20 20 49 66 20 74 68 |inserted|. If th|
|00004b90| 65 20 73 79 6d 62 6f 6c | 0a 73 74 61 72 74 73 20 |e symbol|.starts |
|00004ba0| 6a 75 73 74 20 61 66 74 | 65 72 20 61 6e 20 6f 70 |just aft|er an op|
|00004bb0| 65 6e 2d 70 61 72 65 6e | 74 68 65 73 69 73 2c 20 |en-paren|thesis, |
|00004bc0| 6f 6e 6c 79 20 73 79 6d | 62 6f 6c 73 20 77 69 74 |only sym|bols wit|
|00004bd0| 68 20 66 75 6e 63 74 69 | 6f 6e 0a 64 65 66 69 6e |h functi|on.defin|
|00004be0| 69 74 69 6f 6e 73 20 61 | 72 65 20 63 6f 6e 73 69 |itions a|re consi|
|00004bf0| 64 65 72 65 64 2e 20 20 | 4f 74 68 65 72 77 69 73 |dered. |Otherwis|
|00004c00| 65 2c 20 61 6c 6c 20 73 | 79 6d 62 6f 6c 73 20 77 |e, all s|ymbols w|
|00004c10| 69 74 68 20 66 75 6e 63 | 74 69 6f 6e 0a 64 65 66 |ith func|tion.def|
|00004c20| 69 6e 69 74 69 6f 6e 73 | 2c 20 76 61 6c 75 65 73 |initions|, values|
|00004c30| 20 6f 72 20 70 72 6f 70 | 65 72 74 69 65 73 20 61 | or prop|erties a|
|00004c40| 72 65 20 63 6f 6e 73 69 | 64 65 72 65 64 2e 20 20 |re consi|dered. |
|00004c50| 49 66 20 63 61 6c 6c 65 | 64 20 77 69 74 68 20 61 |If calle|d with a|
|00004c60| 0a 6e 65 67 61 74 69 76 | 65 20 70 72 65 66 69 78 |.negativ|e prefix|
|00004c70| 2c 20 74 68 65 20 6c 61 | 73 74 20 63 6f 6d 70 6c |, the la|st compl|
|00004c80| 65 74 69 6f 6e 20 77 69 | 6c 6c 20 62 65 20 75 6e |etion wi|ll be un|
|00004c90| 64 6f 6e 65 2e 22 20 22 | 50 22 5d 29 0a 28 62 79 |done." "|P"]).(by|
|00004ca0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 88 c2 c3 21 |te-code |"..!...!|
|00004cb0| 87 22 20 5b 70 72 6f 76 | 69 64 65 20 63 6f 6d 70 |." [prov|ide comp|
|00004cc0| 6c 65 74 65 72 20 72 75 | 6e 2d 68 6f 6f 6b 73 20 |leter ru|n-hooks |
|00004cd0| 63 6f 6d 70 6c 65 74 65 | 72 2d 6c 6f 61 64 2d 68 |complete|r-load-h|
|00004ce0| 6f 6f 6b 5d 20 32 29 0a | |ook] 2).| |
+--------+-------------------------+-------------------------+--------+--------+
